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Op de CES in Chicago ontbrak Commodore geheel, op de Comdex in Atlanta was 
het allemaal Amiga wat de klok sloeg, maar de deelname aan de AmigaWorld in de 
VS werd opgeschort. Er zijn een aantal signalen dat het Commodore niet voor de 
wind gaat in de VS. Luc Sala rapporteert vanuit Atlanta. 


Oude wijn in nauwelijks nieuwe zakken... 


Comdex ’87 


J e vraagt je wel eens af, hoe vaak een bedrijf kan proberen de pers te be¬ 
dotten. Nadat ik op een aantal computerbeurzen in de VS al tegen de 
PC-10 was opgelopen (voor ons al een oudje), reikte men mij op de 
Comdex in Atlanta weer vrolijk een persbericht uit, waarin men de PC-10 


én de Amiga 500 en 2000 aankondii 

Het nieuws is misschien, dat de PC- 
10 met de aangekondigde lagere prij¬ 
zen nu echt serieus verkocht zou 
worden. Een PC-10 met één diskdri¬ 
ve en monitor kost nu 800 dollar in de 
VS, geen revolutie en nauwelijks 
nieuws. Misschien is het allemaal te 
verklaren uit het feit, dat men weer 
eens een vrijwel geheel vernieuwde 
management ploeg voor Commodore 
heeft laten aanrukken en de oude 
toppers de straat op stuurde. Rat- 
tigan, de vorige president, had het 
volgens de meesten helemaal niet 
slecht gedaan, maar Irving Gould, de 
oude meester van Commodore, gaf 
hem toch zijn congé en nam zelf de 
leiding op zich. 

De nieuwe managers van Commodo¬ 
re zijn Alfred Duncan, die verant¬ 
woordelijk is voor de VS en Richard 
Mclntyre (marketing). Er is ook weer 
wat geld in kas bij CBM, want de 
Prudential Insurance Company ver¬ 
strekte een lening van 60 miljoen dol¬ 
lar, die eventueel in aandelen kan 
worden omgezet. 

Amiga Software 

Het is langzamerhand duidelijk, dat 
de 64 niet echt meer meetelt. Op de 
Commodore stand in Atlanta waren 
alleen maar Amiga’s te zien. Vooral 
het software-aanbod was echter in¬ 
drukwekkend. Er is een groot aan¬ 
tal, vooral kleine, softwarehuizen met 
heel creatieve video en audio toepas¬ 
singen voor de Amiga bezig. 

De grote software-bedrijven zien de 


Amiga meer als één van de beschik¬ 
bare machines. Er is sprake van een 
steeds verdergaande concentratie 
van de software-uitgevers voor spel¬ 
letjes en thuismarkt; vooral op de 
CES was dat heel duidelijk. Er blijven 
maar een paar namen overeind en nu 
Electronic Arts het Canadese "Bat- 
teries inctuded' heeft overgenomen, 
is de Commodore-markt weer één 
van haar oudste softwarehuizen, met 
een bijna klassieke toewijding aan de 
64-markt kwijtgeraakt. 

Thuismarkt 

De Amiga 500 is nu echt gericht op de 
thuiscomputeraar en tegen de prijs 
van 699 dollar in de VS is dat een 
moeilijke strijd. De PC-klonen zijn 
namelijk ongeveer even duur, maar 
bieden een meer universeel plat¬ 
form voor serieuze toepassingen. Na¬ 
tuurlijk is op dit moment de Amiga vrij¬ 
wel onverslaanbaar op het gebied 
van de grafische prestaties en als re¬ 
creatieve machine, maar het is de 
vraag hoeveel Amerikanen daar voor 
vallen. 

Met de Amiga 2000 mikt men op een 
veel krachtiger segment, namelijk op 
de creatieve professional, die ook 
nog een stukje MS-DOS compatibili¬ 
teit wil hebben. Er waren een aantal 
desktop publishing pakketten te zien, 
die de capaciteiten van deze machine 
duidelijk beter lieten uitkomen en in 
vergelijking met MS-DOS machines 
vooral qua beeldkwaliteit en letter¬ 


types op het scherm heel sterk óver¬ 
kwamen. DeskTop video is een ande¬ 
re toepassing, waar veel Amiga-ge- 
bruikers en ontwikkelaars zich op 
richten. 

Atari 

Bij het beoordelen van de toekomst 
van Commodore kunnen we niet om 
Atari heen. Daar schiet men ook niet 
zo erg op met nieuwe produkten. De 
Atari laserprinter is er bijvoorbeeld 
nog steeds niet en ook op de Atari PC 
wordt in de VS nog gewacht. Maar 
aan de onderkant van de markt 
maakte Atari een paar slimme ma¬ 
noeuvres. Zo heeft men de 8-bits XE 
plotseling in een ander jasje gestopt 
en noemt men het nu een Game Sys¬ 
tem computer. 

Dat is een verrassende aanpak, maar 
gezien het toch wel groeiende succes 
van de Nintendo spelcomputer mis¬ 
schien wel heel slim. Er is wel degelijk 
een markt voor goedkope, eenvoudig 
te bedienen spelcomputers, die via 
de speelgoedzaken verkocht kunnen 
worden. En voor de XE (en XL) is een 
overmacht aan relatief goede en 
goedkope software op insteekmodu- 
les beschikbaar. Dat betekent ge¬ 
bruiksgemak en een relatief geringer 
risico voor de speelgoedwinkelier, die 
niet zo weg is van kopieerbaar spul 
op cassettes of disks. 


Luc Sala 
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Zaken doen met de PC is geen nieuws, heel wat brieven, mailing lists en klantbestan- 
den komen uit de PC. Maar kan de computer ook gebruikt worden om bijvoorbeeld 
de internationale handel gemakkelijker te maken. Hier speelt telecommunicatie een 
grote rol, maar ook nieuwe manieren van PC gebruik. Luc Sala geeft zijn ideeën over 
hi-tech zakendoen, en lanceert een idee voor een hi-tech TeleTrade Center concept. 


Internationale handel anno 1990 


TeleTrade Centers 


Z elfs in deze tijd van snelle vliegverbindingen en geavanceerde commu¬ 
nicatietechnieken blijkt het niet zo eenvoudig, om bijvoorbeeld met een 
land als Japan op een eenvoudige manier zaken te doen. Er zijn diver¬ 
se belemmeringen, die dit in de weg staan, maar gelukkig zijn er tech¬ 
nologische ontwikkkelingen, die mogelijk een oplossing kunnen bren¬ 
gen. Een betere toegang tot informatie elders en betere communicatie met 
mogelijke handelspartners leidt dan vrijwel zeker tot meer handel, en dat 
is niet alleen in het belang van de beide zakelijke partijen, maar ook voor 


de hele economie. 

Het is nu eenmaal voordeliger, om 
produkten daar te kopen, waar ze het 
best en goedkoopst gemaakt of 
ontwikkeld kunnen worden. Iemand 
die probeert zijn "betere" muizeval 
of'"lekkerste" kaas te verkopen in Ja¬ 
pan (en het volgende geldt natuurlijk 
min of meer voor ieder vreemd land 
waar men zaken wil doen), heeft 
het niet gemakkelijk. 

Ellende 

Je weet vaak niet waar te beginnen, 
en als je dan eindelijk mogelijke han¬ 
delspartners gevonden hebt, begint 
de ellende pas goed. Het lijkt, zeker 
in het begin, of ze daar alles anders 
doen, welbewust niets willen begrij¬ 
pen en de meest vreemde voorwaar¬ 
den stellen. In de praktijk betekent dit, 
dat er maar heel weinig bedrijven zijn, 
die werkelijk zakendoen met Japan. 
Dat zijn echt uitzonderingen, bedrij¬ 
ven die door een bijzonder produkt of 
door vasthoudende marketing wel 
door de rijstebrijberg gekomen zijn. 

Grote bedrijven hebben niet zoveel 
moeite met het benaderen van afzet¬ 
markten in vreemde landen. Ze heb¬ 
ben de middelen en ook vaak de 


plaatselijke organisatie en contac¬ 
ten om dat vrij gemakkelijk te regelen. 
Kleinere bedrijven lopen echter snel 
op tegen allerlei echte of vermeen¬ 
de barrières, die ze vaak doet af ha¬ 
ken voordat men goed en wel begon¬ 
nen is. Dergelijke barrières zijn bij¬ 
voorbeeld de taal, het gebrek aan 
goede contacten, de benodigde tijd 
en geld om potentiële handelspart¬ 
ners ook eens echt te kunnen ont¬ 
moeten, de administratieve romp¬ 
slomp, de papierhandel en de ge¬ 
compliceerde financiële afwikkeling 
van transacties. 

En dan hebben we het nog niet 
over de culturele barrières, die zijn 
vaak net zo belemmerend, men is 
al snel geïmponeerd door het on¬ 
bekende en ziet bergen problemen 
opdoemen, die er in feite niet zijn. 
Hoe kan nu de techniek gebruikt wor¬ 
den om ook de kleinere bedrijven 
toegang tot deze exportmarkt(en) te 
geven? Het is natuurlijk niet zo, dat 
we via de techniek het direkte per¬ 
soonlijke contact, dat nog steeds zo’n 
belangrijke rol speelt bij vrijwel ieder 
commercieel contact, kunnen 
elimineren. Maar net als de telefoon 
toch een bruikbare vervanging is 



gebleken, kunnen ook andere tech¬ 
nieken hier heel nuttig gebruikt wor¬ 
den. En laten we eerlijk zijn, voor 
heel wat bedrijven is een reis naar 
Japan gewoon niet haalbaar. 

(Tele)-Communicatie 

Wanneer we de problemen analyse¬ 
ren van een relatief klein bedrijf, dat 
graag zaken zou doen met bijvoor¬ 
beeld Japan, komt het aspekt com¬ 
municatie steeds weer naar voren. 

Aangezien het om een relatief 
vreemd land gaat, met een andere 
taal, een compleet ander schrift en 
natuurlijk ook andere handelsgebrui¬ 
ken, zou men de techniek moeten 
aanwenden om hier bruggen te 
slaan. Natuurlijk is de telefoon hier de 
aangewezen weg om te communi¬ 
ceren, maar met Japan is dat niet 
zo eenvoudig als het lijkt: Vrijwel 
niemand spreekt Engels (of durft En¬ 
gels te spreken), men verbindt einde¬ 
loos door, begrijpt niet waar het om 
gaat, maar zegt toch steeds vriende¬ 
lijk ja en dergelijke. Aangezien het ta¬ 
melijk dure telefoongesprekken zijn, 
geeft men dan al gauw de moed op. 
De telefoon is pas nuttig, wanneer 
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men vaste contacten heeft en enige 
zekerheid dat men begrepen wordt. 
De telex is daarna de volgende 
stap, en zonder twijfel worden er heel 
wat zaken afgehandeld via dit zakelijk 
vrij universele medium. 



Fax 

In het geval van Japan wordt de rol 
van de telex op dit moment snel over¬ 
genomen door de facsimile-berich- 
ten. Die werken wel niet zo snel, en 
om ze direct te sturen is nog een heel 
gedoe, maar via bijvoorbeeld Fax- 
post is één en ander al heel goed te 
doen. Vrijwel alle Japanse bedrijven 
werken met een Fax en dat komt na¬ 
tuurlijk ook door het schrift. Typema¬ 
chines of zelfs computers met een 
Japanse (Kanji of Katakana) word¬ 
processor zijn nog niet algemeen in 
gebruik. Bovendien heeft de Japan¬ 
ner nog een heilig ontzag voor druk¬ 
letters of gezette kanji-karakters en 
zal eerder geneigd zijn iets met de 
hand op een papiertje te krabbelen 
om een al te formele indruk te vermij¬ 
den. 

Toch heeft ook facsimile nadelen, 
zo is het nog geen echt automatisch 
systeem met ontvangstbevestiging 
zoals de telex en verder is de terug¬ 
koppeling gering. Men weet niet, of 
de ontvanger het bericht wel in goede 
orde ontvangen heeft en of hij wel 
begrijpt waar het over gaat. Ik heb 


heel wat telexen en faxen naar Japan 
gestuurd, waar volstrekt onbegrij¬ 
pelijke antwoorden op kwamen. Zo 
herinner ik me het geval, waarin op 
een of andere manier onduidelijk was 
geworden, wie kocht en wie 
verkocht en waar de opgegeven prij¬ 
zen en hoeveelheden op sloegen, 
met het gevolg dat beide partijen op 
zoek gingen naar de gevraagde pro- 
dukten. Dat soort misverstanden zijn 
eerder regel dan uitzondering, zowel 
de zender als de ontvanger van een 
schriftelijk bericht hebben in het al¬ 
gemeen moeite met het helder for¬ 
muleren en interpreteren van de 
boodschap. 

De communicatie via de telefoon, 
de telex of de facsimile is bij het 
zakendoen op zich onmisbaar, maar 
ook te beperkt om echt tot een 
sluitende en heldere uitwisseling te 
komen. 

Electronic mail 

Het versturen van ASCII tekst via een 
1200/2400 bps EM-dienst werkt snel¬ 
ler dan een fax, maar is beperkt tot 
westerse lettertekens. Electronic mail 
heeft hier het voordeel boven een 
telex, dat men de boodschap wat 
meer vorm kan geven, grote en kleine 
letters en regels wit helpen om de 
kern van de zaak duidelijk te ma¬ 
ken. Het is alleen jammer, dat in Ja¬ 
pan het gebruik van electronic mail 
niet zo erg gemakkelijk gaat, men 
heeft een speciaal toegangsnummer 
van de KDD (PTT) nodig en ook hier 
loopt men tegen het gebrek aan com¬ 
puters op. Wat betreft E-mail ligt men 
nog een stuk achter op bijvoorbeeld 
de VS, al wordt er de laatste tijd wel 
veel meer aan gedaan. Er zijn nu 
goedkope modems op de markt en er 
komen allerlei informatie-diensten 
van de grond. In dat opzicht loopt 
men echter, net als in de Nederland¬ 
se situatie met Viditel, tegen een vrij 
onduidelijk tweesporen beleid aan. 


Communicatiebarrières maken 
de internationale markt voor 
kleine bedrijven nog steeds on¬ 
toegankelijk _ 

In wezen zijn half-duplex communi¬ 
catiesystemen met een ingebouwde 
vertraging niet optimaal, en dat geldt 
zowel voor telex als facsimile of elec¬ 
tronic mail. De telefoon is in dat op¬ 
zicht veel beter, maar de taalbarrière 
is hier de spelbreker. 

Nieuwe wegen 

Bovenstaande comunicatiemedia zijn 


op dit moment vrij eenvoudig toegan¬ 
kelijk, ook voor kleinere bedrijven. 
Natuurlijk samen met de aloude brief 
die tegenwoordig niet alleen via de 
post, maar ook via allerhande koe¬ 
riersdiensten verstuurd kan worden. 

Wanneer we nadenken over betere 
communicatiemethoden, zou een 
combinatie van de telefoon en de fac¬ 
simile natuurlijk heel handig zijn om 
tegelijkertijd iets op papier over te 
kunnen sturen en er dan ook over 
te praten. Iets dergelijks kan ook met 
electronic mail en heet dan "Voice 
over Data", maar de PTT is er, zeker 
in het internationale verkeer, niet al 
te blij mee. Men heeft namelijk het 
telefoonverkeer al zo geoptimali¬ 
seerd, dat er in de praktijk alleen 
maar een "echte” verbinding is, wan¬ 
neer men ook werkelijk spreekt. Door 
allerlei "multiplexing" en half-duplex 
technieken wordt een telefoonlijn tij¬ 
dens een normaal gesprek dan ook 
maar voor 1/3 tot 1/5 van de tijd 
echt geopend. Wanneer daar nu 
een data-signaal van een modem of 
faxs, die met continu "carrier" sig¬ 
nalen werken, bij komt, wordt zo’n 
telefoongesprek eigenlijk te duur (on¬ 
rendabel) voor de PTT. Men is er dus 
niet erg voor om dit soort oplossing¬ 
en,enenen die technisch heel goed 
haalbaar zijn, toe te staan of actief te 
bevorderen. "Voice over Faxs" is ech¬ 
ter vanuit communicatie-oogpunt be¬ 
keken een grote stap vooruit, zeker 
voor bedrijfsmatige toepassingen. 

Videophone 

De beeldtelefoon is als techniek al 
meer dan tien jaar oud, en Philips 
heeft in het verleden al meermalen 
apparatuur laten zien, waarmee dat 
technisch heel goed mogelijk was. De 
benodigde verbindingen waren ech¬ 
ter te breedbandig, er was een aparte 
verbindingskabel of satellietkanaal 
voor nodig of als alternatief een com¬ 
binatie van een heleboel telefoonlij¬ 
nen. Daarmee bleven de kosten van 
een beeldtelefoongesprek te hoog en 
is het medium nooit echt van de 
grond gekomen. De laatste jaren 
zijn er echter coderingstechnieken 
ontwikkeld, die het mogelijk maken 
om met veel minder bandbreedte 
toch een bruikbare beeldverbinding 
op te bouwen. Met een beperkte digi- 
talisatie en gebruik van "still-video” 
(stilstaande videobeeldjes) kan men 
zelfs met een gewone telefoonver¬ 
binding nu al beperkt aan beeldtelefo- 
nie doen. Er zijn diverse video-phone 
systemen op de markt, o.a. de Luma- 
phone van Mitsubishi. Met de gelei¬ 
delijke groei naar ISDN verbindingen, 
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waarbij men 64 kbps verbindingen 
of veelvouden daarvan tot zijn be¬ 
schikking krijgt, zal in dit opzicht 
zeker nog veel gaan gebeuren. Een 
videofoon is met name in het zakelijk 
verkeer, waar men niet alleen de 
partner in de ogen wil kijken, maar 
ook zijn produkten wel eens wil 
zien, een belangrijk instrument. 

Kleurenfacs 

En wanneer we dan aan afbeeldin¬ 
gen van produkten denken, dan is de 
stap naar kleur natuurlijk een kwestie 
van tijd. Het is op dit moment tech¬ 
nisch mogelijk om een kleurenfac- 
simile systeem te maken, in de prak¬ 
tijk heb ik dat echter nog nergens 
als commercieel produkt gezien. De 
overtuigingskracht van een kleuren¬ 
plaatje is echter vaak zoveel beter 
dan van een zwart-wit afbeelding, dat 
dit vast niet lang op zich laat wachten. 

PC toepassingen 

Behalve de telecommunicatie, de 
netwerken, de koppeling van compu¬ 
ters middels WAN’s (Wide Area Net¬ 
works) biedt de computer natuurlijk 
ook een hele reeks andere mogelijk¬ 
heden om commercieel gebruikt te 
worden. Neem bijvoorbeeld het ge¬ 
bruik als vertaalcomputer. op dit mo¬ 
ment zijn er een aantal grote main- 
frame-systemen, waarop men tek¬ 
sten kan vertalen van en naar het 
Japans. Op een recente tentoonstel¬ 
ling in Tokio zag ik nu echter ook pro¬ 
gramma’s, die datzelfde op een rela¬ 
tief kleine PC deden. Het zal taaltech¬ 
nisch nog wel allemaal niet 100% ver¬ 
antwoord zijn, maar wanneer je links 
de tekst in het Engels hebt en rechts 
de Japanse karakters verschijnen, 
is dat meer'dan een stapje in de goe¬ 
de richting. Natuurlijk liever een per¬ 
fecte vertaling, maar dit is al veel be¬ 
ter dan altijd met een tolk te moeten 
werken en de ontwikkeling staat ze¬ 
ker niet stil. 

De computer kan ook, middels kop¬ 
peling aan geschikte on-line data¬ 
banken of met behulp van "ingevro¬ 
ren" databanken op bijvoorbeeld CD- 
ROM, gebruikt worden om informatie 
op te vissen. Juist de ontwikkeling 
van Expert-systemen en "Artificial ln- 
telligencë' technieken zou bij het 
complexe terrein van de internation¬ 
ale handel en de duizenden regels, 
voorschriften, formulieren en derge¬ 
lijke van onschatbaar nut kunnen zijn. 
De moderne laserprinters zijn dan 
ook in staat, om de overstap tussen 
onze letters en de vreemde karakters 
zonder problemen te maken. 


Creatieve technologie 

In het verlengde van wat ik hierboven 
heb aangegeven, zijn er natuurlijk 
nog eindeloos veel andere tech¬ 
nieken om het moeilijke terrein van 
de interculturele communicatie, en 
daar praten we toch over wanneer we 
het hebben over handel met bijvoor¬ 
beeld Japan, open te breken. De 
computers worden zo krachtig, dat 
spraaksynthese, geavanceerde grafi¬ 
sche afbeeldingen, patroonherken¬ 
ning en wat al niet mogelijk worden. 

Waar het echter om gaat, is om goe¬ 
de toepassingen te vinden voor de 
nieuwe technieken en om aan te to¬ 
nen, dat ze ook praktisch bruikbaar 
zijn. In verband met de internationale 
handelspromotie geloof ik, dat daar 
een uniek en potentieel ook zeer lu¬ 
cratief terrein is, om deze technie¬ 
ken toe te passen. Het probleem is al¬ 
leen, dat het realiseren van zo’n toe¬ 
passing zich wel uitstrekt over de hal¬ 
ve wereld en dat juist de problemen 
die er mee opgelost zouden kunnen 
worden, ook de barrière vormen om 
tot praktische toepassing te komen. 

V oorbeeld-centrum 

Wanneer er nu, misschien met steun 
van de respectievelijke overheden 
en/of handelsbevorderende organi¬ 
saties, een soort voorbeeldcentrum 
zou kunnen komen om de levens¬ 
vatbaarheid van dit soort technologi¬ 
sche oplossingen te demonstreren en 
aan te tonen, lijkt mij dat een 
positieve zaak. Daarbij denk ik aan 
het opzetten van tweeling-centra in 
bijvoorbeeld Amsterdam en Tokyo, 
waar men de moderne communicatie 
en informatie-technologie gebruikt 
om juist de contacten tussen kleinere 
bedrijven en organisaties in de twee 
landen te bevorderen. Zoiets ligt in 
het verlengde van de funktie van bij¬ 
voorbeeld een Trade-Center, maar 
heeft als extra de telecommunicatie- 
faciliteiten, die men tegenwoordig 
graag in de vorm van het "Teleport" 
concept wil concentreren in bepaalde 
plaatsen. 

Het TeleTrade Center kan de 
ideale combinatie van Trade 
Center en Telleport vormgeven. 

Zo’n Te/eTVacfe-handelscentrum voor 
internationale contakten is een com¬ 
binatie van mogelijkheden, die ook in 
dit concept genoemd zijn. Telecom¬ 
municatie, Tradepromotion, met het 
woord TeleTrade Center is dat alle¬ 
maal onder één noemer gebracht. 


Met een soortgelijk centrum in beide 
landen, die gekoppeld zijn via aller¬ 
lei telecommunicatieverbindingen 
en met de technische middelen om 
bijvoorbeeld documentatie en promo¬ 
tiemateriaal te maken, krijgt hand¬ 
elspromotie een heel nieuw gezicht. 
Vooral voor kleinere bedrijven is er 
dan de mogelijkheid, om veel snel¬ 
ler en directer contact te maken met 
potentiële handelspartners, zonder 
direct in het vliegtuig te hoeven stap¬ 
pen. 

En laten we eerlijk zijn, we praten hier 
niet over technische wonderdingen, 
maar over apparatuur die hetzij com¬ 
mercieel verkrijgbaar is, hetzij in 
een beta-test fase verkeert en met 
wat goede wil best beschikbaar ges¬ 
teld kan worden door de bedrijven, 
die het ontwikkelen. Dat geldt over¬ 
igens in nog sterkere mate voor de 
software en databank-faciliteiten, 
die een integraal deel van zo’n 
centrum zouden moeten vormen. 
Zeker in het begin is voorbeeld-func- 
tie van zo’n centrum en de publiciteit, 
die het zeker zal krijgen, een krachtig 
middel om bedrijven tot medewerking 
te verlokken. 

Realisatie 

Is het nu mogelijk om zo’n centrum 
ook werkelijk te realiseren? Als jour¬ 
nalist kun je natuurlijk wel allerlei 
ideëen lanceren, maar voor de reali¬ 
satie ervan zijn meer dingen nodig 
dan wat artikelen in een blad. Geluk¬ 
kig zijn er in ons land genoeg organi¬ 
saties, die met een idee als het 
bovenstaande iets kunnen doen. 

Hoewel het natuurlijk wat vreemd 
aandoet, om te spreken over een 
traditionele functie van ons land wan¬ 
neer we het hebben over computers 
en telecommunicatie, valt het idee 
van een TeleTrade Center toch heel 
duidelijk binnen de Japans-Neder- 
landse handelstraditie. Want het wa¬ 
ren de Hollanders, die middels een 
vooruitgeschoven handelspost (Deci- 
ma) eeuwenlang fungeerden als het 
transmissiemedium tussen het Ja¬ 
panse keizerrijk en de Westerse 
wereld. En hoewel de technieken 
natuurlijk veranderen, zou het reali¬ 
seren van de hierboven beschreven 
TeleTrade Centers ook nu een derge¬ 
lijke functie hebben. En daarmee zou 
de rol van ons land als handelsnatie 
ook in de toekomst aan inhoud en 
betekenis kunnen winnen. 


Luc Sala 
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Door alle aandacht voor de MS-DOS compatibele Amiga 2000 is de Amiga 500 
wat op de achtergrond geraakt. Niettemin blijft de Amiga 500 een belangrijke hobby- 
machine met 68000-kracht voor de gewone man. Waar anders vindt men een 16 bits¬ 
machine onder de ƒ 1400,- met zoveel mogelijkheden als de 500? Wij voelden deze 
kleinste Amiga eens nader aan de tand. 


68000-kracht voor de gewone man 



Amiga 500 


C omputerhobbyisten willen steeds meer. Verwend door fraaie videobeel¬ 
den, flitsende animaties en snelle processoren nemen zij geen genoe¬ 
gen meer met eenvoudige 8-bits CPU’s en ruwe graphics met strompe- 
tende sprites. De oorspronkelijke Amiga 1000 trok dan ook veel bekijks tij¬ 
dens demonstraties en menigeen voelde de begeerte bij zich opkomen He¬ 
laas, de prijstelling ging ver boven het hobbybudget uit en wie niet jaren 
lang water en brood wilde eten moest nog maar wat geduld hebben met 
een C-64 of C-128. Gelukkig werd het wachten beloond en introduceerde 
Commodore onlangs de Amiga 500 als gedoodverfde opvolger van de C- 
64/128 lijn van 8-bitters. Of deze verwachtingen ten aanzien van de hobby- 
computer van de jaren 90 zullen uitkomen moet echter nog blijken. 


Het is nog maar enkele jaren geleden 
dat Commodore de C-128 als opvol¬ 
ger van de succesvolste homecom¬ 
puter aller tijden, de C-64, aankon- 
digde. Mikkend op de grote hoeveel¬ 
heid beschikbare software dacht 
CBM met een nieuwe voor 99,9% 
met de C-64 compatibele hobbycom- 
puter het succes van de oude top¬ 
per te kunnen evenaren. Hoewel de 
verkoop van de C-128 niet geheel on¬ 
verdienstelijk bleek vielen de ver¬ 
koopresultaten tegen. Vervolgens 


stak men de oude 64 in een flitsend 
jasje (de C-64 II) en ondersteunde 
het Mac-achtige GEOS userinterface. 
Ook kwamen er krachtiger diskdrives 
en zelfs een harddisk beschikbaar. 

Al deze welkome vernieuwingen ver¬ 
anderden natuurlijk niets aan de 
grenzen der 8-bitsmogelijkheden. 
De "final frontier” is nu wel zo on¬ 
geveer bereikt en de concurrentie in 
de vorm van MS-DOS PC-klonen 
en 68000-machines rukte langzaam 
maar zeker op. Nog steeds hebben 


de C-64 en 128 een flinke aantrek¬ 
kingskracht op de (beginnende) hob¬ 
byist, onderwijs en kleine zakelijke 
gebruiker. De lage prijs en de enorme 
hoeveelheid software wegen voor tal¬ 
loze gebruikers ruimschoots op tegen 
de nadelen van trage rekenkracht, 
mindere grafische kwaliteit en be¬ 
perkte geheugencapaciteit. Toch 
groeien onvermijdelijk steeds meer 
serieuze hobbyisten boven de moge¬ 
lijkheden van de C-64 en C-128 uit. 
Wie echter meer wil zal ook meer 
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moeten betalen en veel financiële 
armslag heeft de doorsnee Neder¬ 
landse hobbycomputeraar niet. 

Met de introductie van de scherp 
geprijsde Amiga 500 hoopt Commo¬ 
dore deze kategorie hobbyisten over 
te halen om de stap naar een 68000- 
systeem te maken. De Amiga 500 is 
met zijn ingebouwde diskdrive en bij¬ 
geleverde muis eigenlijk nauwelijks 
duurder dan een C-64 II met los dis- 
kettestation en biedt alle mogelijkhe¬ 
den van de nieuwe generatie home¬ 
computers. Daartegenover staat, al¬ 
thans in Nederland, nog het nadeel 
van de traag op gang komende soft- 
warestroom. Maar laten wij eerst 
eens kijken wat de Amiga 500 alle¬ 
maal te bieden heeft. 

De basisconfiguratie 

In tegenstelling tot de Amiga 2000 
is de 500 geen bouwdoos (een open 
systeemarchitectuur), maar een vrij¬ 
wel gesloten, compleet systeem. In 
de op de C-128 lijkende systeemkast 
met ingebouwde 3.5 inch diskdrive 
is geen ruimte voor inbouwkaarten of 
extra drives. Hoogstens kan aan de 
onderzijde nog een geheugen-uit- 
breidingskaart met klok ingestoken 
worden. Alle verdere uitbreidingen 
moeten via de expansion port aan de 
linkerzijde van de computer. 

De Amiga 500 biedt de serieuze hob¬ 
byist meteen alles wat voor jarenlang 
probleemloos computeren en door¬ 
groeien noodzakelijk is. Het inge¬ 
bouwde 880 KB 3.5 inch diskette- 
station kan qua datacapaciteit de 
meeste spelletjes en programma¬ 
tuur ruimschoots aan. Wie meer mo¬ 
gelijkheden of gebruikersgemak am¬ 
bieert kan via de floppy-poort nog een 
extra drive aansluiten. 

Standaard zijn een 256KB metend 
ROM, met het operating system Kick¬ 
start 1.2, en een 512KB groot RAM 
aan boord. Desgewenst kan de ge¬ 
heugencapaciteit tot 1MB opge¬ 
voerd worden. Ruimte genoeg dus 
voor grote spreadsheed-modellen 






en gedetailleerde graphics of video¬ 
beelden. 

Het hart van de Amiga wordt ge¬ 
vormd door de 32/16-bits Motorola 
MC 68000 CPU met een kloksnelheid 
van 7,16 MHz. De interne (adress- 
bus) dataoverdracht is 32-bits. Die 
overdracht per systeembus verloopt 
in woorden van 16 bits. Verder be¬ 
schikt de MC 68000 over een aan¬ 
zienlijk krachtiger on board instruc¬ 
tieset dan de 6502 CPU’s van de C- 
64 en C-128. Dat bespaart veel tijd bij 
het programmeren en het uitvoeren 
van opdrachten. Bovendien behoort 
multitasking tot de mogelijkheden. 
Net als bij de Amiga 1000 en 2000 
wordt de 68000 CPU ondersteund 
door drie coprocessoren: 

• De videochip Denise kent vier 
verschillende grafische scher¬ 
men: 320 x 256, 320 x 512, 640 
x 256 en 640 x 512 pixels. Het 
50 Hz videobeeld heeft een op¬ 
lossend vermogen van 625 lijnen 
en een geheugen van maximaal 
512 KB. In de tekstmodus zijn 
naar keuze 60 of 80 tekens be¬ 
schikbaar met maximaal 25 ge¬ 
kleurde regels. Het kleurenpalet 
biedt 32 kleuren (bij 320 beeldlij¬ 
nen) of 16 kleuren (bij 640 lijnen) 
met maximaal 4096 mengkleu- 
ren. Verder behandelt Denise de 
spritebesturing en botsingsdetec- 
tie. 

• De poort-chip Paula behandelt 
de DMA-besturing van de seriële 
poort, parallelle poort, controller- 
poort, toetsenbord en audio-l/O. 

• De Bit-Blitter- of animatie-chip 
Agnus. In de Amiga 500 is spra¬ 
ke van een speciale custom uit¬ 
voering, de zogenaamde Fat 
Agnus, waarbij nog meer func¬ 
ties in één en dezelfde IC zijn on¬ 
dergebracht. Deze coprocessor 
verzorgt in nauwe samenwerking 
met de beide anderen de 
vloeiende Amiga-animaties. 


De interfaces 

Eindelijk lijkt Commodore haar in- 
compatibiliteitspolitiek te laten va¬ 
ren. In de hobbydagen van weleer 
was het aansluiten van niet-Commo- 
dore hardware op een C-64 of C-128 
een crime. Eigenzinnige connectoren 
vroegen om specialistische en dure 
verloopkabeltjes of veie uurtjes zwe¬ 
ten met de soldeerbout. Ook de pa¬ 
rallel Centronics printerpoort van de 
Amiga 1000 leed aan dit euvel. 

Bij de Amiga 500 zijn de poort- 
aansluitingen echter allemaal PC- 
standaard. De RSC 232-uitgang laat 
zich moeiteloos aansluiten op tal 
van modems, afdrukkers en commu- 
nicatie-kabeltjes. Alleen voor MIDI- 
toepassingen is een speciale adap- 
terkabel nodig. De Baudrate is pro¬ 
grammeerbaar tot maximaal 31.250 
baud en het transport van ASCII-files 
mag met geschikte communicatie- 
software dus geen problemen meer 
opleveren. Datzelfde geldt even¬ 
eens voor de parallelle Centronics- 
poort. Een speciale adapterkabel is 
niet meer nodig. 

Een tweede parallel-interface ver¬ 
zorgt de communicatie met ten 
hoogste drie externe drives. Er is 
keuze uit 3.5 en 5.25 inch floppy dri¬ 
ves en een hard disk met inge¬ 
bouwde controller van Commodore 
zelf of onafhankelijke merken. De 
Amiga 500 kan maximaal 1 extern 
floppystation voeden. Meerdere flop¬ 
py drives of een hard disk zullen 
hun eigen stroomvoorziening moeten 
meebrengen! 

Een monitor kan zowel via een 
tulpkabel (BAS monochrome) als een 
25-pins RGB A/D-plug aangesloten 
worden. Wie geen geld voor een 
kleurenmonitor heeft kan dus nog 
vooruit met zijn of haar oude mono¬ 
chrome model. Bezitters van een 
Al 081 kunnen al direkt van de fraai 
gekleurde HIRES graphics genieten. 

INTERFACES 



van links naar rechts: 
poort 1 voor muis, joystick 
poort 2 

stereo/audio uitgangen 
aansluiting externe disk¬ 
drive 

seriële RS232 poort 
parallel Centronics poort 
aansluitbus extern net¬ 
werk 

monitoraansluiting 
monochrome-video 
(BAS) aansluiting 
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Jammer genoeg ontbreekt wel een 
RF-modulator. Deze zijn natuurlijk 
ook los te koop, maar dat betekent 
weer een extra uitgave, een ontsie¬ 
rend kastje op je bureau en een min¬ 
dere beeldkwaliteit. 

De geluidsprestaties van de Amiga 
500 komen via een interne luidspre¬ 
ker nimmer tot hun recht. Aanslui¬ 
ten op de stereo brengt daarente¬ 
gen menige moderne muziekliefheb¬ 
ber in verrukking. De tulpbussen ste- 
reo-in en -out maken deze verbinding 
tot het simpelweg insteken van vier 
cinch-plugjes. 

De standaard 9-pins muis/joystick- 
poorten zitten aan de achterzijde. 
Minder handig dan de meer gebrui¬ 
kelijke plaatsing aan de zij- of 
voorkant, maar de Amiga 500 zit nu 
eenmaal stampvol met aan de rech¬ 
terkant de 3.5 inch floppy en links de 
expansion port. Behalve een muis en 
joystick kunnen op de beide poorten 
ook een joyball, lichtpen of grafisch 
tekenbord aangesloten worden. 

De expansion port, in feite een pro- 
cessorbus, biedt de veeleisende ge¬ 
bruiker nog de mogelijkheid om meer 
RAM-geheugen, een extra coproces- 
sor, een harddisk, meet/regel-relais, 
robot-controllers of andere randap¬ 
paratuur te installeren. Vreemd is dat 
bij de eigen MS-DOS-emulator Side¬ 
car een aansluitprobleem dreigt te 
ontstaan. De systeembus zit aan de 
verkeerde kant en is nog 180 gra¬ 
den gedraaid ook. Een adapterka- 
beltje brengt uitkomst, maar het ge¬ 
heel wordt er niet fraaier op. 

Tussen de poorten aan de achter¬ 
zijde van de Amiga 500 treft u ook de 
netstroomconnector aan. Net als bij 
de oudere Commodore-modellen is 
voor een losse netvoeding gekozen. 
Nette inbouw was waarschijnlijk, ge¬ 
zien het ruimteprobleem, onmoge¬ 
lijk. Een ander kritiekpuntje is dat de 
aan/uitschakelaar op het trafokastje 
zit. Verre van handig daar de meest 
gebruikers deze lelijke voedingseen- 
heid ergens onder hun bureau zul¬ 
len wegmoffelen. 

In de Amiga 500 

Na het loschroeven en oplichten van 
de bovenkap valt het inwendige van 
de Amiga 500 te bewonderen. Zoals 
gezegd is alle hardware, behalve het 
diskettestation, op een hoofdkaart 
gemonteerd. Uiterst links op deze 
kaart zit de MC 68000 met vlak daar¬ 
naast de expansion port. Eventuele 
uitbreidingen hebben daarom vrijwel 
direkt kontakt met de CPU. 

Direkt rechts van de 68000 processor 
staat het 256KB ROM met de in¬ 
gebakken Kickstart versie 1.2. Om dit 
ROM zijn de drie coprocessoren ge¬ 


groepeerd waarbij de dikke zwarte 
Agnes duidelijk opvalt. Nieuw is de 
custom Gate-Array-Chip Garry die 
snel en nauwkeurig tal van logische 
functies, o.a. het aansturen van TTL- 
monitoren, vervult. De Amiga 500 is 
tot nu toe de enige van de Commodo¬ 
re 68000-familie die over deze copro- 
cessor beschikt. 

Links aan de voorzijde zit de stan¬ 
daard geheugenbank met 512KB aan 
vrij RAM. Deze bank bestaat uit 16 
256KB RAM-chips met een acces- 
tijd van 150 nanoseconden. Aan de 
rechterzijde van deze RAM-bank kan 
de uitbreidingskaart met 512KB extra 
RAM, klok en accu in de daarvoor be¬ 
stemde connector gestoken wor¬ 
den. Deze ruimte is via de bodem¬ 
plaat toegankelijk zodat de gebrui¬ 
ker de 500 niet behoeft open te 
schroeven. 

Verder zitten er nog een quarts video- 


oscillator met een frequentie van 
28.63 MHz (dicteert de 68000 een 
kloksnelheid van 7.16 MHz) en 
enkele DMA l/O-chips op de hoofd¬ 
kaart. Veel meer IC’s zijn er niet. Kort¬ 
om een keurig staaltje van geïnte¬ 
greerde chiptechniek. 

De ingebouwde 3.5 inch floppy disk 
drive biedt een comfortabele 880KB 
aan geformatteerde opslagcapaciteit. 
Dat is altijd nog 160KB meer dan de 
in concurrent Atari ST gebouwde 
drive. Daar de interne diskdrive zijn 
voeding uit de Amiga 500 trekt kon¬ 
den de afmetingen bescheiden ge¬ 
houden worden. Onze drive functio¬ 
neerde zonder mankeren (een ver¬ 


ademing na al die 1541 -kuren) en viel 
zelfs redelijk snel te noemen. 

Het toetsenbord 

Het met de systeemkast geïntegreer¬ 
de keyboard ziet er met zijn strakke 
layout en 96 toetsen profes sioneel 
uit. Het geheel lijkt veel op een kruis¬ 
ing tussen een C-128 en een Atari 
1040 ST. De huiscomputer-mode van 
het einde van de jaren tachtig. 

De layout toont een duidelijke driede¬ 
ling. Circa tweederde deel van het 
schuine front der systeemkast wordt 
in beslag genomen door een comfor¬ 
tabel QWERTY-toetsenbord. Uiterst 
rechts zit een numeriek toetsenbordje 
met Ins-, Del-, Home-, End-, PrtSc-, 
NumLock-, PgUp-, PgDn- en Scroll 
Lock-toetsen. Tussen het nume¬ 
rieke en QWERTY-bord zitten nog 
een driehoekig (of een omgekeerde 
T) cursorblok en de toetsen Del en 


Help. Boven het QWERTY-deel vindt 
de gebruiker uiterst links de Esc-toets 
en rechts daarvan de functietoetsen 
F1 t/m F10. 

De beide Amiga(A)-toetsen zijn ge¬ 
bleven. Een echte resetknop ont¬ 
breekt nog steeds zodat voor het re- 
setten de combinatie A-A-Ctrl gedrukt 
moet worden. 

Het schrijfmachine-bord geeft nauwe¬ 
lijks aanleiding tot klagen. De aanslag 
is voldoende trefzekker, de Enter¬ 
en shifttoetsen zitten waar de typer 
hen verwacht. Over de plaats van 
de Esc-key valt de twisten. Het is 
maar waar je hem gewend bent. De 
cursor-driehoek vonden wij, aan PC- 
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keyboarden gewend, niet zo handig. 
Maar een Amiga wordt per slot van 
rekening hoofdzakelijk met de muis 
bediend. Alle toetsen zijn volledig 
processorgestuurd en in de praktijk 
zullen zelden uitleesfouten optreden. 

De muis 

Alle Amiga’s hebben een staartje met 
een muis er aan. Het digitale Amiga 
knaagdier is een eenvoudig optome- 
chanisch model met twee be-die- 
ningsknoppen. Een kunststoffen bal 
brengt de bewegingen op het bureau 
aan de sensoren over. Voor het 
noodzakelijke reinigen zit er aan de 
onderzijde een handig klapluikje. 

De muis is tamelijk fors en vergt be¬ 
hoorlijk wat tafel- en elleboogruimte. 
Na even wennen wordt de 500-muis 
echter tot een betrouwbaar en plezie¬ 
rig aanwijsgereedschap. Voor games 
en het maken van tekeningen prefe¬ 
reren wij echter respectievelijk een 
joystick en een lichtpen. 

Graphics en animaties 

Wat graphics en animaties op huis- 
en personal computers betreft staat 
de de Amiga nog steeds aan de 
top. Zelfs professionele videofilmers 
en reklamebureau’s maken gebruik 
van de betaalbare Amiga-mogelijk- 
heden. Pakketten als DeLuxe Paint II 
Aegis animator en DeLuxe Video be¬ 
horen tot de bestverkochte 68000 
software. Volgens de opiniepeiling¬ 
en beschikt meer dan de helft van de 
Amiga-bezitters over een teken- en/of 
animatiepakket. 

De grafische beeldvorming is bij de 
500 (en andere Amiga’s) grotendeels 
uitbesteed aan de coprocessor Deni- 
se. Deze Display Encoder neemt het 
tijdconsumerende rekenwerk van de 
68000 CPU over. Zoals bekend 
mengt Denise de drie basiskleuren 
rood, groen en blauw in 16 ver¬ 
schillende kleurtrappen tot een palet 
van 4096 mengtinten. Het aantal be¬ 
schikbare kleuren hangt af van de 
schermresolutie. Kiest de gebruiker 
voor 32 verschillende kleuren dan 
bedraagt het oplossendvermogen 
320 x 256 pixels (LORES), bij 16 
kleuren 640 x 256 pixels (HIRES). 
Een pixelscherm heet bij de Amiga 
een bit mapped plane, of in gewoon 
Nederlands een grafische geheu¬ 
genkaart. Bij elk punt op de monitor 
hoort een grafische geheugenloka- 
tie met bijpassend kleurenregister. 
Denise kan vijf LORES planes tegelijk 
besturen. In de hogere 640 x 256 pix¬ 
els resolutie kan de grafische chip 
maximaal vier planes aansturen. Hoe 
hoger de schermresolutie des te min¬ 
der kleuren en planes er beschikbaar 
zijn. Al te kleurrijke beelden gaan 


achteruit in videokwaliteit en dat kan 
storend werken bij het afwisselen tus¬ 
sen of mengen van conventionele en 
computer-videobeelden. 

Een tweede functie van Denise is het 
instellen van de interlace modus. 
Op zich een simpel gebeuren waarbij 
de grafische chip de beeldfrequen¬ 
tie van de horizontale beeldlijnen ver¬ 
andert. Er is keuze uit 50 en 25Hz. 
Deze switchmethode heeft grote ge¬ 
volgen voor de videodisplay. Bij 50Hz 
neemt het oog geen enkele beeldflik- 
kering meer waar. Animaties verlo¬ 
pen daarom geheel vloeiend. Een na¬ 
deel is de resolutie die bij 50Hz maxi¬ 
maal 320 x 512 pixels meet. Een 
lager oplossend vermogen is voor 
snelle animaties geen groot bezwaar. 
Wel voor statische graphics, Denise 
schakelt dan in de 25Hz modus met 
een maximale resolutie van 640 x 
512 pixels. Bij 25Mz neemt het 
beeldflikkeren uiteraard toe. 
Kleurovergangen regelt Denise via 
de Hold and Modify-modus (HAM). 
De vloeiende kleurovergangen ont¬ 
staan doordat de grafische coproces¬ 
sor de intensiteit van één der drie 
basiskleuren in de opeenvolgende 
pixels verandert. In feite wordt dus 
punt voor punt gewijzigd, maar dat 
gaat zo snel dat het oog een wer¬ 
velende kleurbeweging waarneemt. 
Hold and Modify werkt alleen in de 
LORES- of Interlace-modus. 

Alle actie vindt plaats op 16-kleurige 
speelvelden, de Play-Fields. Van 
zo’n speelveld is doorgaans slechts 
een vensterdeel zichtbaar. Het wer¬ 
kelijke Play-Field is veel groter dan 
de monitor kan laten zien. Denise 
verstaat de kunst om twee speelvel¬ 
den, nu met elk slechts 8 kleuren, 
over elkaar te schuiven, in twee rich¬ 
tingen HIRES te scrollen en zelfs van 
grootte en vorm te veranderen. 

Net als bij de C-128 en C-64 zijn er 
natuurlijk ook sprites voorhanden. 
Denise bestuurt maximaal acht spri¬ 
tes in vier kleuren. Een sprite is maxi¬ 
maal 16 punten breed. De vertikale 
lengte is onbeperkt. Verder behandelt 
Denise de sprite collisions en het stel¬ 
len van sprite-prioriteiten. 

Ook Fat Agnus, de DMA adresgene¬ 
rator, is onmisbaar voor het creëren 
van de flitsende Amiga animaties. 
Deze dikzak kan in de Amiga 500 
bliksemsnel 1MB aan videodata ver¬ 
versen. Direct Memory Access om¬ 
zeilt de hoofprocessor en spreekt het 
geheugen dus direkt aan. 

De Amiga 500 en 2000 kennen twee 
verschillende soorten RAMs. Memory 
boards die de 68000-bus gebruiken 
bieden het zogenaamde fast memo- 
ry. Fast wil zeggen dat het RAM de 
bus-access niet met de video Blitter- 


chip behoeft te delen. Dat was wel het 
geval op de Amiga 1000 waarbij de 
Blitter, dankzij zijn hogere systeem- 
prioriteit, buscycli stal van het interne 
chip memory, hetgeen de program- 
ma-uitvoer vertraagde. 

Op de Amiga 500 met geheugen- 
uitbreiding bestaat de helft van het 
1 MB grote RAM (dus 512K) uit tast¬ 
en de andere helft uit chip memory. 
De Blitter kan daarbij rustig te keer 
gaan met het chip-video-geheugen 
terwijl de software aanzienlijk snel¬ 
ler in het fast Ram draait. 

Agnes bestaat uit drie onderdelen. 
De DMA-controller hebben wij zo¬ 
juist al besproken. Het belangrijkste 
onderdeel van Agnus is echter de co- 
procesor Copper. Copper wordt in 
feite geheel door de electronen- 
bundel van de monitor gestuurd en 
schrijft de data van en naar de regis¬ 
ters. Er zijn drie bevelen mogelijk: 
MOVE verplaatst de data, WAIT doet 
de coprocessor wachten tot de elec- 
tronenbundel de gewenste scherm- 
plaats bereikt heeft en SKIP is er voor 
het overslaan van bevelen. Copper 
verandert slechts de registers en 
grijpt niet zelf op het RAM aan. 

Het derde IC-onderdeel van Agnes is 
de zogenaamde Blitter. De Blitter is 
een grootschalige verhuizer van gra¬ 
fische datablokken. Commodore zelf 
geeft 1.000.000 pixels en 60 beelden 
per seconde op. Interessant is de 
animatie-optie, waarmee maximaal 
drie bewegende elementen met el¬ 
kaar kunnen worden verbonden. Bij¬ 
voorbeeld de benen en het hoofd van 
een kartoonfiguurtje animeren. 

Home-Video 

Alle Amiga animaties, speelscher- 
men en grafische creaties kunnen via 
de video-output op de eigen video¬ 
recorder worden overgenomen. Daar 
is echter meer voor nodig dan de re- 
klame doet geloven. De benodigde 
video- en grafische software wordt 
niet meegeleverd en dergelijke pak¬ 
ketten kosten helaas nog altijd enkele 
honderden guldens. Ook is er door¬ 
gaans een speciaal verloopkabeltje 
nodig om de Amiga 500 video-uit- 
gang met de VCR of montage-unit 
te kunnen verbinden. 

Voor het combineren van een compu¬ 
ter en een VCR- of camerasignaal is 
een zogenaamde genlocker nodig. 
Superpositie (over elkaar heen) van 
beelden is alleen mogelijk als de ene 
videobron synchroon en de andere 
asynchroon is. De genlocker regelt 
de beide signalen op elkaar af. Com¬ 
modore levert de Genlock 1300 voor 
PAL-videosystemen, maar in Duits¬ 
land en bij gespecialiseerde firma’s 
zijn ook apparaten van andere mer- 
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ken te koop. De Genlock 1300 
wordt tussen de RGB-poort en VCR 
geschakeld en stemt het composiet 
videosignaal, de stereo-audiolijnen 
en het Amiga computersignaal op el¬ 
kaar af. De prijs van deze Commodo¬ 
re Genlock ligt rond de ƒ 600,-. 

Voor het digitaliseren en creatief be¬ 
werken van videobeelden is weer een 
aparte digitizer nodig. Digi-Viewvan 
Newtek biedt de Amiga-bezitter een 
compleet HAM video-digitizing sy¬ 
steem in 4096 kleuren. Kleuren- 
videobeelden kunnen met Digi-View 
gedigitaliseerd en vervolgens met 
Deluxe Paint II, DeLuxe Video of 
het eigen Digi-Paint bewerkt worden. 
Allemaal prachtige mogelijkheden 
voor de videohobbyist, maar helaas 
niet goedkoop. Vooral als men de 
Amiga ook nog eens met een video- 
processor of special effects generator 
(SEG) wil kombineren. 

Softwaremarkt. 

Tot op heden is een Amiga-software- 
markt in Nederland nog steeds niet 
van de grond gekomen. De één geeft 
de schuld aan de welig tierende pira¬ 
terij. De ander aan de ongeïnteres¬ 
seerde (?) dealers die te hoge prijzen 
zouden berekenen. 

Zoals gewoonlijk ligt de waarheid 
waarschijnlijk ergens in het midden. 
Het aantal verkrijgbare pakketten 
blijft echter bedroevend en de prijzen 
gaan menige hobbybeurs ver te 
boven. Dat is geheel anders over 
onze oostgrens waar de keuze 
groot en de prijzen redelijk zijn. 
Hopelijk doet de snel stijgende popu¬ 
lariteit van de Amiga ook in Neder¬ 
land het tij keren. 

De minpuntjes 

De lage prijs maakt kritiek op de 
Amiga 500 moeilijk. De hieronder ver¬ 
melde minpuntjes betreffen dan ook 
voornamelijk waarschuwingen om¬ 
trent de grenzen van het systeem 
en bijkomende kosten: 

• De gesloten systeemarchitec¬ 
tuur belemmert grote uitbrei¬ 
dingen. Een expansiepoort is zö 
vol en in de kast is geen plaats 
meer voor de inbouw van extra 
kaarten of drives. Verder bemoei¬ 
lijkt de compacte bouw de servi¬ 
ce en doe-het-zelf soldeerwerk. 

• De incompatibiliteit met andere 
gangbare computersystemen zo¬ 
als de C-64/C-128 en MS-DOS 
machines. Hobbyisten met een 
kast vol Commodore software 
kunnen die bij de aanschaf van 
een Amiga 500 meteen van de 
hand doen. 


• Een echte RESET-knop ont¬ 
breekt. De A-A-Ctrl-combinatie 
werkt minder handig. 

• De externe voeding oogt min¬ 
der fraai en een aan/uit- schake¬ 
laar hierop is vaak moeilijk be¬ 
reikbaar. 

• De MS-DOS-mogelijkheden zijn 
in vergelijking met een kloon be¬ 
perkt. Wie serieus een gecombi¬ 
neerde MS-DOS- en Amiga-optie 
overweegt is beter af met een 
2000-model. 

• Enkele oudere software-pakket- 
ten draaiden niet onder Kick¬ 
start 1.2. 

Toepassingen 

Voor wie is een Amiga 500 nu eigen¬ 
lijk een aantrekkelijke machine? In 
tegenstelling tot de op de zakelijke 
(MS-DOS)-markt gerichte Amiga 
2000 valt de 500 in vrijwel ieder klein¬ 
schalig computerstraatje. Op de vol¬ 
gende gebieden zou deze 68000-ma- 
chine zich ons inziens in Nederland 
heel verdienstelijk kunnen maken, 
mits voldoende soft- en hardware 
ondersteuning van de grond komt: 

• Onderwijs. De Commodore 64 is 
door zijn prijstelling en softwaremo- 
gelijkheden redelijk succesvol als 
leercomputer. Een Amiga 500 kost 
nauwelijks meer en heeft veel in zijn 
mars. Vooral op het gebied van inter¬ 
actieve videotoepassingen. 

• Desktop Publishing. Inmiddels zijn 
al een aantal printshop- en profes¬ 
sionele DP-pakketten leverbaar. Het 
printerkabel-probleem is nu geëlimi¬ 
neerd en ook laser-Fonts komen bin¬ 
nenkort beschikbaar. De full cölour 
HIRES-graphics van de Amiga 500 


maken de paginaopmaak tot een 
waar genoegen. 

* Business graphics. Geanimeer¬ 
de zakelijke grafische presentaties en 
reklames zijn een ideaal toepas¬ 
singsgebied voor de Amiga. Er is vol¬ 
doende software en de prijs maakt de 
500 aantrekkelijker dan de invester¬ 
ing in EGA-kaarten, animatie-boards 
en HIRES PC-monitoren. 

* HomeVideo. Zie het voorafgaande. 

* Digitalethuismuziek. Via het MIDI- 
interface is een compleet kamer¬ 
orkest mogelijk. 

* De spelcomputer voor de komen¬ 
de jaren. Spelen als Defender of the 
Crown en SDI zijn inmiddels zeer 
geliefd. 

* Experimentele computer voor de 
veeleisende hobbyist/programmeur 
of jonge onderzoeker. 

* Artistieke computer voor vrije-tijds 
of professionele kunstbeoefening. 

* Kleine zakencomputer. De troe¬ 
ven zijn hier: eenvoudige bediening 
(Intuition userinterface), multitask- 
ing, 68000 rekenkracht, telecom¬ 
municatie en eventueel de (beperkte) 
MS-DOS compatibiliteit. 

De Amiga 500 biedt veel waar voor 
zijn geld. Voor rond de ƒ 1300,- krijgt 
de koper een compleet systeem dat 
talloze hobby-, creatieve en kleine 
zakelijke wensen kan vervullen. Als 
voornaamste beperking geldt de voor 
een groot deel gesloten systeemar¬ 
chitectuur. Wie het onderste uit de 
68000-kan wil hebben loopt bij de 
Amiga 500 op den duur tegen de ge¬ 
heugen- en uitbreidingsgrenzen aan. 
Een tweede belangrijk probleem 
vormt de slappe softwaremarkt in Ne¬ 
derland die, naar wij hopen, spoe¬ 
dig zal aantrekken. 



Vluchtsimulator op de Amiga 500: grafische kwaliteit is hoog 
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Zoals gebruikelijk bespreekt Rob Goudriaan weer een aantal klassiekers onder de 
computerspelletjes. Sommige van deze toppers van toen zijn nog te koop, anderen 
zult u moeten ruilen of zoeken. 


Oud van Goudriaan 


Decathlon 

Een spel dat enige jaren geleden 
volop in de belangstelling stond is 
het aktiespel decathlon. Het spel 
bestaat uit tien onderdelen, die 
stuk voor stuk een aanslag plegen 
op je uithoudingsvermogen. 

Om dit spel tot een goed einde te 
brengen telt niet alleen de lichame¬ 
lijke konditie maar zeker ook de staat 
en kwaliteit van het materiaal. Een 
degelijke joystick is een eerste ver¬ 
eiste. Het is een slopend spel waarbij 
je na afloop niet alleen het gevoel 
hebt dat je daadwerkelijk meegedaan 
hebt, maar ook dat je blij mag zijn als 
je zonder spierblessures de eind¬ 
streep hebt gehaald. Als u uitgerust 
bent en over een getrainde pols be¬ 
schikt kunnen we met het spel begin¬ 
nen, anders is een warming-up mis- 
chien beter. 

Het eerste onderdeel is de 100 meter 
hardlopen. Na het startschot be¬ 



weeg je de joystick als een razende 
heen en weer. Het is zaak om het 
sneller en regelmatiger te doen dan je 
tegenstander. Laat je niet afleiden 
door je tegenstander want tijd kost 
punten. De volgende onderdelen 
worden steeds moeilijker en kosten 
dus ook meer tijd om ze onder de 
knie te krijgen. En zeg nou zelf, het is 


toch veel leuker om je tegenstan¬ 
der, bij het polsstok hoogspringen ru- 
glings van zijn stok te zien glijden, 
dan dat het je zelf gebeurt? Ook het 
kogelstoten, speerwerpen en niet te 
vergeten het discuswerpen leveren 
de meest dolle situaties op, als men 
ongetraind aan de start verschijnt. 
Maar lukt het dan uiteindelijk het 
projectiel in de lucht te krijgen, dan 
geeft het een voldaan gevoel het 
publiek op de tribune te horen jui¬ 
chen. En wat te denken, bij het hoog- 
en verspringen, van het onderdrukte 
lachen, als je niet hoger springt dan 
een gemiddelde kleuter. Dat de 
tienkamp een zeer zware klus is blijkt 
wel bij de 400 meter, als je bij de 100 
meter dacht het valt nog wel mee, 
wacht dan maar af. Ga niet te snel 
van start want zelfs achter de compu¬ 
ter hoopt het melkzuur zich op, en 
krijg je het gevoel op drijfzand te 
lopen. 

Tot slot is er nog de 1500 meter. In dit 
onderdeel moet alles in de strijd wor¬ 
den geworpen. Bij mij werkt dit onder¬ 
deel altijd op mijn lachspieren en 
vraag niet hoe men met een slappe 
lach de eindstreep kan halen. Ik heb 
dan ook het idee dat ik pas over de 
streep kom als mijn tegenstander al¬ 
lang weer onder de douche uitkomt. 

Ik kan er niets aandoen maar ik blijf 
het een komisch gezicht vinden als 
twee (volwassen) personen als een 
razende aan een joystick aan het 
trekken zijn om vooruit te komen. 
Kostelijk vermaak ik me dan ook al¬ 
tijd, dit leidt mijn tegenstander ech¬ 
ter zo vaak af dat ik dan toch nog win. 
Decathlon is een spel dat men zeker 
eens moet spelen. Wie in de compu¬ 
terzaken gaat snuffelen komt het 
zeker nog wel tegen. Maar men zij 
gewaarschuwd. 


Pac man 

Pac man is een spel dat al bekend¬ 
heid had voor dat de homecom¬ 
puters hun intrede deden. In elke 
speelhal waren automaten waar er 
driftig mee gespeeld werd. Het is 
een spel wat zeker in een Oud 
van Goud rubriek thuis hoort. Het 


is een spel dat veel geimiteerd is, 
maar nooit geëvenaard. Wie kent 
hem eigenlijk niet, het balletje dat al¬ 
tijd honger heeft en niets anders doet 
dan blokjes eten en weglopen voor 
de tegenstanders. Voor degene die 
het spel nog nooit gespeeld hebben 
zou ik zeggen: ga naar de winkel, het 
is vast nog wel verkrijgbaar, en er 
staan u vele uren plezier te wachten. 
Na het starten van het spel moet je 
nog maar een ding voor ogen hebben 
zoveel mogelijk blokjes opeten. 
Natuurlijk is dat niet zo gemakkelijk 
als het lijkt, er zijn een aantal ka¬ 
pers op de kust. Deze lusten dan wel 



niet de stippen, maar ze zijn gek op 
de happelaar, en dan is er weer een 
kostbaar leven verspeeld. U kunt 
deze tegenstanders tijdelijk uitscha¬ 
kelen door de gekleurde blokjes, die 
u in de vier hoeken kunt vinden, op te 
eten. Uw tegenstanders veranderen 
van kleur en zijn ineens doodsbang 
geworden en vliegen voor u weg. Iets 
onder het midden van het scherm 
verschijnt er af en toe een vrucht op 
het scherm. Het verorberen van deze 
vruchten levert extra punten op. Maar 
als ik u was ging ik er niet te veel 
op af, want u bent zo afgeleid en 
uw tegenstander zit ook niet stil. 
Het beste kunt u een veilige route 
kiezen en in de buurt van een stip 
even op uw tegenstander blijven 
wachten, dan hap slik en hap tegen¬ 
stander en u doet de naam happelaar 
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eer aan. Er zal veel geoefend moeten 
worden voor er een groot aantal pun¬ 
ten op het scherm staat. Dit is een 
spel dat als de smaak je eenmaal te 
pakken heeft de nodige nachtrust kan 
kosten. Eet smakelijk. 

The Heist 

Heeft u altijd al een grote roofover¬ 
val willen plegen, maar daar nooit 
de tijd of de moed toe gehad, 
grijp dan hier uw kans. Een ge¬ 
heime organisatie heeft een spion 
nodig om een chip te pikken die 
verstopt blijkt te zijn in een schil¬ 
derij. Maar welke? Zodat er niets 
anders opzit dan alle schilderijen 
mee te nemen. 

Een galerij vol met schilderijen staat 
tot uw beschikking. De bewakers zit¬ 
ten met een computer te spelen, zo¬ 
dat de bewaking dus minimaal is 
(lijkt). Het gebouw bestaat uit drie 
verdiepingen die verbonden zijn met 



een lift. Vanaf een hogere verdieping 
kan je naar beneden springen. Het 
lijkt allemaal heel gemakkelijk, maar 
dat is schijn. Er zijn hier en daar val¬ 
len en obstakels opgesteld. Deuren 
kunnen alleen met een sleutel open¬ 
gemaakt worden. Er zijn ook bewe¬ 
gende bolletjes, kijk hiervoor uit, ze 
zijn bij aanraking dodelijk. Als je een 
sleutel bij je hebt valt de aanraking 
wel mee dan kost het je alleen de 
sleutel. Je kan wel over ze heen 
springen. Hier en daar staan een 
soort emmertjes met een gekleurd 
bolletje erin, hiermee in aanraking ko¬ 
men betekent ten alle tijde de dood. 
Sleutels zijn er overal verstopt. Het is 
een hele kunst de juiste strategie te 
bepalen hoe je het beste kunt lopen 


en welke deur er moet worden open¬ 
gemaakt. Soms is het beter om naar 
beneden te springen om zo achter 
een deur te komen, en een sleutel uit 
te sparen, voor echte noodgevallen. 
Met de roltrap kan je snel gaan, maar 
let erop dat je niet via deze zelfde 
weg weer terug kunt. In de eerste 
ronde zijn de lopende banden niet 
gevaarlijk, maar daarna wordt het 
anders. Er zijn dan halverwege een 
soort bewegende balken aange¬ 
bracht, het is een aparte techniek om 
het er hier levend vanaf te brengen. 
Echt in tijdnood kom je met dit spel 
niet gauw. Je start het spel met twee 
minuten, en voor elk schilderij dat je 
pakt wordt de tijd weer op twee minu¬ 
ten terug gezet. Alleen aan het eind 
als er veel ruimte tussen de schilde¬ 
rijen is, en je wat meer om moet lopen 
kan het wat krapper worden. Je be¬ 
gint het spel met drie levens en na de 
eerste 10.000 punten komt er een 
leven bij. Naar dit spel zult u mischien 
in de winkels wat meer moeten zoe¬ 
ken, maar het is zeker wel de moei¬ 
te waard. 

Mr. Robot 

Mister Robot is een spel dat al 
jaren geleden uitgebracht is maar 
bij zeer weinig mensen bekend is. 
Bij ons staat het al enige jaren op 
de plank. 

Het begint allemaal heel eenvoudig. 
Met het mannetje links in het beeld 
kan men bepalen of men er geluid bij 
wil hebben of niet, door eenvoudig 
naar de muziektoon te springen. De 
hele opzet is over de balken te lo¬ 
pen waardoor de stippen verdwij¬ 
nen. Vergeet er geen een, want te¬ 
ruggaan is soms erg moeilijk. Door 
tegen het knipperende bolletje te 
springen krijg je een beschermend 
kringetje om je heen. 

Zolang je beschermt bent kun je de 
spookjes uitschakelen, maar let op: 
je hebt hiervoor maar beperkt de 
tijd. Kijk goed hoe je naar de volgen¬ 
de balk moet, soms is het springen, 
maar een andere keer moet je je ge¬ 
woon laten vallen. Doe je het fout, 
dan kost het een van je vier levens. 
Als alle blokjes weg zijn gaat men 
naar veld twee. Het geheel wordt wat 
moeilijker. Het scala wordt hier uitge¬ 
breid met roltrappen en lopende ban¬ 
den. Na het starten van een veld is 
het raadzaam om eerst eens goed te 
kijken waar je het beste kunt begin¬ 
nen. De derde ronde is in verhouding 
erg eenvoudig, in de vierde is het 
goed uitkijken want ergens te lang 
blijven staan, en je vliegt de lucht in. 


In de vijfde ronde krijg je te maken 
met trampolines. Het vereist een 
aparte techniek om hierop stil te blij¬ 
ven staan, dit is echter nodig om 
niet te ver te springen. In de zesde 
ronde krijgen we met een techniek te 
maken om snel te verplaatsen. Je 
gaat op een transporteerplaats staan, 
het lijken wel scheermesjes, een 
druk op de vuurknop en je staat op 
een andere plaats. Even oefenen om 
te kijken waar je uitkomt. In de vol¬ 
gende velden krijg je er niets 
nieuws bij. In ronde 10 komen er 
magneten om de hoek kijken. Het 
kost heel wat oefening om de mag¬ 
neten niet tegen je, maar voor je te 
laten werken. Het zal, de nodige 
moeite opleveren dit spel tot een 
goed einde te brengen. Maar voor 
diegene die het spel zo uitspelen is er 
de extra mogelijk heid om zelf scher¬ 
men te ontwerpen. Het is dus een 
spel dat voor iedereen aantrekkelijk is 
en blijft. 

Oil’s well 

Stel u voor: u bezit een stuk grond, 
en volgens deskundigen zit daar 
olie in. Er is echter één groot pro¬ 
bleem u moet het er zelf uithalen. 
Jaloerse buren en nijdige concur¬ 
renten zullen alles doen om u dat 
te beletten. 

Ziehier alle ingrediënten van een spel 
dat al jaren geleden op de markt is 
gebracht. Elke keer dat u olie (dus de 
blokjes) opzuigt levert dit de nodige 
punten op. De buren hebben via 
hun eigen grond allerlei vreemde 
wezens in uw gangen gepompt, 
zodat u met uw apparatuur niet on¬ 
gehinderd uw gang kunt gaan. De 
staalvretende kabels doen niets 
liever dan uw kabels kapot vreten, en 
dat ze daar erg goed in zijn blijkt 
wel dat de kleinste aanraking voor 
hen al het gewenste effect heeft. 

De concurrenten hebben bommen 
geplaatst die de olieleiding kunnen 
laten ontploffen. Aan u de taak dit 
alles te verhinderen en toch zo veel 
mogelijk punten te verzamelen. Je 
laat je natuurlijk door niets en nie¬ 
mand tegenhouden en gaat gestaag 
door de olie op te pompen. Het is mo¬ 
gelijk de staalvretende wezens te ver¬ 
nietigen door ze met de kop van de 
slang op te zuigen, maar pas op: de 
slang zelf kan er niet tegen! (en dit 
kost dan ook een leven). Er dwaalt 
ook een zandloper rond. Deze doet 
geen kwaad en levert alleen een 
heleboel punten op. Veel punten wil 
zeggen extra levens. Bij elke 10.000 
punten wordt het aantal levens met 
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één verhoogt, en deze zult u later 
hard nodig hebben. De wat grotere 
stip die op elk scherm op een andere 
plaats staat, kan een grote rol spelen. 
Na deze stip verorberd te hebben 
gaan alle vreemde wezens veel lang¬ 
zamer, en heeft u de mogelijkheid 
meer tegenstanders uit te schakelen. 
Maar pas op, zoals bijna altijd schuilt 
hier ook een addertje onder het gras: 
zorg dat je op tijd terug bent in de uit¬ 


gangspositie, want alles gaat ineens 
weer over op een razend snel tempo. 
Goed op de tijd letten, want net als in 
het gewone leven vliegt de tijd voor¬ 
bij. Als u alle schermen heeft gehad 
gaat het spel weer van voren af aan 
beginnen, alleen veel sneller. 

Topografie 

Radarsoft, ons eerste Nederlandse 
software huis heeft een groot aan¬ 
tal Nederlandstalige program¬ 
ma’s op de markt gebracht. Waar¬ 
onder ook enkele goede educa¬ 
tieve spelen. Het topografie-spel 
Nederland is net als de topogra¬ 
fie Wereld en topografie Europa 
een aantrekkelijk en leerzaam spel. 
Na het opstarten van het program¬ 
ma heeft u de keus uit een aantal 
onderwerpen. Bij de keus opzoeken 
kan er een naam worden ingetypt die 
dan door de computer op het scherm 
wordt getoond. Zo kan je plaatsen op¬ 
zoeken die je zelf niet wist te vin¬ 
den. Een prima gebruik van de com¬ 
puter als atlas. Bij de keuze overho¬ 
ring moet je laten zien wat je kunt: 
antwoord geven op de vragen van de 
computer. Welke rivier is dit, of welke 
provincie is dit, enz. Grote, maar ook 
de kleine plaatsen, komen aan bod. 
Er zijn vier niveau’s en vooral de 


laatste is erg moeilijk. Tot slot is er het 
stedenspel, dat is waarschijnlijk het 
leukste onderdeel, en niet alleen voor 
de kinderen. De bedoeling is dat je 
een helicopter bestuurt en naar de 
plaats vliegt die de computer aan¬ 
geeft. Als je vlak bij de plaats bent 
gaat deze knipperen. In de eerste 
levels zijn het de grotere plaatsen 
maar hoe kleiner de plaatsen worden 
des te moeilijker wordt het spel. Het 
blijkt dat iedereen beter thuis is met 
de plaatsen dan met b.v. de rivieren. 


< 



Topografie van Nederland, Europa 
en ook de Wereld, is een leuk en leer¬ 
zaam spel. Zowel voor de ouderen 
als ook voor de jeugdigen. Want zeg 
nu zelf: die saaie rijtjes plaatsen uit 
je hoofd leren vroeger, was ook niet 
alles! • 



SETTLE LIGHT SOFTS 

DAMMEN 

Eindelijk een tegenstander op niveau! 

★ Nederlandse handleiding met regels en taktische tips 

★ demonstratie-partijen 

★ invoeren van zetten met toetsen, cursor of joystick 

★ terugnemen van vorige zet 

★ zelf opzetten van standen 

★ computer speelt zwart of wit 

★ spiegelen van bestaande stand 


In de betere computershop voor 

ƒ 37,50 (cassette) 
- (diskette) 


incl. BTW 
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Een van de grote Nederlandse uitgeverijen op het gebied van educatieve software, 
Malmberg, heeft een aantal software paketten voor de lagere schooljeugd op de 
markt gebracht. We bekeken een aantal van deze paketten. Wat als eerste opvalt is 
de goede verpakking, een stevige doos waarin diskettes en cassetes goed zijn op¬ 
geborgen. Elk pakket is voorzien van een duidelijke en in goed Nederlands geschre¬ 
ven handleiding. 


Basisschool achter de computer 


M almberg verzamelde software voor de basisschool, geschreven door 
leraren en opvoedkundigen uit de hele wereld. Het zijn stuk voor 
stuk programma’s waar de nodige aandacht aan is besteed, wat tot uitdruk¬ 
king komt in de algehele indruk. Het zijn pakketten die in een software bi¬ 
bliotheek op de scholen niet mistaan. Eén van de grote voordelen van deze 
pakketten is dat we de kinderen zelf hun gang kunnen laten gaan, ze 
alles zelf laten ontdekken. Dit is de beste manier om ze met een compu¬ 
ter om te laten gaan en om ze er vertrouwd mee te maken. 


Geheim archief 


Dit is een programma voor kinderen 
in de leeftijd variërend van acht tot 
twaalf jaar. Alle zaken die ze van be¬ 
lang vinden, of dat nu verjaardagen, 
platen verzamelingen of rapportcij¬ 
fers zijn, kunnen worden opgeslagen. 
De naam verraad het al, de bestan¬ 
den kunnen een naam krijgen die 
voor anderen geheim is (en blijft). Het 
geheel is eigenlijk niets anders dan 
een archief, een verzameling kaartjes 


f 


Malmberg ®*thuis op de computer 



met gegevens. Op elke kaart kun¬ 
nen de kinderen gegevens zetten. Na 
het opstarten van het programma 
komt er een menu op het scherm, 
met de verschilende keuzemogelijk¬ 
heden. Bij het gebruik van een com¬ 
modore printer is het geen problemen 
om de gegevens van de kaarten op 
papier te zetten. De kinderen kunnen 
zelfstandig werken met dit program¬ 
ma en het nodigt uit tot experimente¬ 
ren met de computer. 


te bereiken. Enkele zaken die aan 
bod komen zijn: werken met kleu¬ 
ren, geluid, zelfs variabelen worden 
niet vergeten. Les 10 heeft van de 
maker de naam ‘hogere schildpad- 
kunde’ meegekregen. Het werken 
met Schildpad is een duidelijke voor¬ 
bereiding op latere programeer talen, 
bijvoorbeeld Basic, waarbij op dezelf¬ 
de manier moet worden gedacht. 


Schildpad 

Met behulp van het programma 
schildpad is het mogelijk om een¬ 
voudige programma’s op de compu¬ 
ter te maken, in een speciale en een¬ 
voudige taal. Het is gemaakt voor 
kinderen van acht jaar en ouder. De 
taal vertoont een grote overeenkomst 
met de bekende computertaal Logo. 
Net als in Logo bestuur je in het pro¬ 
gramma SCHILDPAD een kleine 
schildpad. Het programma is op¬ 
gesplitst in tien lessen. Het begint erg 
eenvoudig, -praten- met de schild¬ 
pad. Het is uiteindelijk de bedoeling 
de schildpad over het scherm te laten 
lopen. De kinderen leren met dit pro¬ 
gramma dat er logische en duidelij¬ 
ke opdrachten nodig zijn om het doel 


Malmberg ^ thuis op de computer 
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Kindercomp 

Kindercomp is, zoals de naam al doet 
vermoeden, een spelletje voor de 
kleinere kinderen. Het is de verzame¬ 
ling van een zestal eenvoudige spel¬ 
letjes. Met watje van edukatieve soft¬ 
ware kan verwachten een leerzaam 
element in elk spel. Het is geschikt 
voor kinderen vanaf vier jaar. Men 
kan kiezen uit: tekenen, kladblok, 
toverwoord, 1-2-3-?, a-b-c, en zoek 
dezelfde. Met deze spelletjes hebben 
de kinderen een scala van mogelijk¬ 
heden op de computer. Tekenen, be¬ 
weging en geluid, het is allemaal 
geen probleem. Kindercomp is een 
programma om de lees- en telvaar¬ 
digheid te ontwikkelen. Als tweede 
voordeel kunnen we noemen het ver¬ 
trouwd raken met het toetsenbord. 


Speurneus 

Het programma speurneus is be¬ 
doeld voor de kinderen in de laatste 
groepen van de basisschool, dus 
vanaf een jaar of tien. De grote vraag 



Heeft Pioen het gedaan? 


in dit spel is: Spookt het in Mossel- 
dam of niet. Speurneus is aangesteld 
om dit raadsel op te lossen. Er zijn 
een aantal verdachten. Zo is er Bert 
Pioen, de tuinman, een lief oud 
dametje (mevrouw van Laer), een 
boze buurman (Alfred Brombeer), 
een makelaar, een kapitein, een be¬ 
heerder van een museum maar ook 
Pietje Peuter. Wie o wie is de 
dader. Gelukkig heeft Mosseldam 
ook een computer, waar je gebruik 
van mag maken. Verder zijn er een 
aantal handige hulpmiddelen zoals 
een fototoestel, een speurhorloge, 
een zaklantaarn en een fototoestel. 
Alle gegevens over de verdachte per¬ 
sonen staan in de computer. Tussen¬ 
tijds kun je het programma stoppen 
en de gegevens wegschrijven, waar¬ 
na dan op een later tijdstip het avon¬ 
tuur weer te vervolgen is. Met dit spel 



kunnen de kinderen leren aan¬ 
tekeningen te maken, gegevens te 
verzamelen en deze later weer geor¬ 
dend te gebruiken. 
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Koppelkaarten 

Met koppelkaarten zijn spelletjes te 
spelen waarbij het aankomt op het 
trainen van het geheugen en het ge¬ 
bruik van de fantasie. Er kan gekozen 
worden uit vier onderdelen: Om¬ 
gekeerd, anagrammen, Frans-Engels 
en Hoofdsteden. Bij het programma 
Omgekeerd moet er een keuze wor¬ 
den gemaakt uit zestien kaarten, 
waarbij de bijelkaar behorende eruit 
moeten worden gehaald. Er kan te¬ 
gen de computer worden gespeeld 
maar ook een partij tegen een 
vriendje of vriendinnetje behoort tot 
de mogelijkheden. De computer 
houdt de stand bij, er is dus altijd een 
eerlijke en onpartijdige scheidsrech¬ 
ter aanwezig. Degene die de mees¬ 
te koppels bij elkaar krijgt wint. Bij het 
onderdeel anagrammen staan de let¬ 
ters van een woord door elkaar ge¬ 
hutseld op het scherm. Probeer het 
goede woord te vinden. Met goed 
opletten is er een heel eind te komen. 
Bij Frans-Engels is een beetje be¬ 
kendheid met de talen wel belangrijk. 
Maar je staat er van te kijken wat 
kinderen er toch van begrijpen als ze 
er een tijdje mee spelen. Het onder¬ 
deel hoofdsteden is het makkelijkste 
onderdeel van dit pakket. Zeker 
voor die leerlingen die op school tij¬ 
dens de aardrijkskundelessen goed 
hebben opgelet. Het pakket is ge¬ 
maakt voor kinderen in de leef¬ 
tijdsgroep van acht tot twaalf jaar. 
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DeLuxe Paint sloeg bij de introductie in november 1985 in als een graphics-bom. 
Nooit te voren waren zoveel grafische mogelijkheden en kwaliteit in een pakket 
verenigd. Binnen korte tijd werd Deluxe Paint een bestseller en tot een soort graphics 
handelsmerk van de Amiga 1000. Meer meer dan 50% van de Amiga-gebruikers bezit 
volgens opiniepeilingen DP. Electronic Arts ontwerper Dan Silva bleef echter niet op 
zijn lauweren rusten en ontwierp de volledig nieuwe, krachtiger en veelzijder 
Deluxe Paint II versie. Een reden voor de redactie om onze artistieke talenten 
eens op het monitorscherm uit te proberen. 


Het onderste uit de graphics-kan? 

DeLuxe Paint II 



E lectronic Arts was een van de eerste softwarehuizen die volledig op de 
grafische en muzikale mogelijkheden van de Amiga inspeelde. E.A.- 
software is geen remake van een oud Commodore- of Mac- pakket, maar 
een volledig voor de Amiga ontwikkeld produkt. Voor het maken van goede 
HIRES-displays had E.A. dringend de behoefte aan een graphics paint tooi. 
Dat werd Dan Silva’s Prism, in feite de oer-DeLuxe Paint. Bij de Ameri¬ 
kaanse doorbraak van de Amiga werd dit stuk grafisch softwaregereed- 
schap geheel voor de MC 68000 aangepast en onder de naam DeLuxe Paint 
versie 1.0 op de markt gebracht. 


Dan Silva is iemand die niet gauw 
tevreden is. Nauwelijks was versie 
1.0 uit of Dan had al tal van nieuwe 
ideeën en verbeteringen voor be¬ 
staande opties in gedachte. Daar 
kwam natuurlijk nog bij dat de concur¬ 
rentie, met name Aegis, niet stil zat, 
en deze zich lekker aan de gestelde 
DeLuxe Paint-standaard kon optrek¬ 
ken. 

Na een jaar van hard werken presen¬ 
teerde Silva in december 1986 



DeLuxe Paint II op de Ameri¬ 
kaanse markt. Volgens Dan bevat 
versie 2.0 alle opties die bij versie 1.0 
nog node gemist werden en loopt het 
pakket aanzienlijk sneller en vloeien¬ 
der dan de eerste release. Opschep¬ 
pen kan uiteraard iedereen, maar 
zelfs concurrent Aegis moest, vol¬ 
gens perberichten, toegeven dat 
Electronics Arts opnieuw een impo¬ 
sante grafische Amiga-standaard ge- 
creërd had. 

DeLuxe Paint II is dus geen upgrade, 
maar een compleet nieuwe, zij het 
volledig IFF-compatibele, DeLuxe 
Paint-uitvoering. 


Wat is nieuw? 

Op het eerste gezicht lijkt DeLuxe 
Paint II nog veel op versie 1.0. Wie 
echter wat verder kijkt dan zijn/haar 
artistieke neus lang is ontdekt al 
spoedig een hele set nieuwe krach¬ 
tige opties en verbeteringen van oude 


manco’s. 

Nieuw zijn de opties: 

• Stencil vervult een soort masker- 
functie die bepaalde scherm- 
delen afdekt tegen ongewenste 
veranderingen. 

• Fixed Background maakt het 
mogelijk om voorstellingen en 
kleurlagen tegen een bestaande 
achtergrond aan te brengen zon¬ 
der dat deze aangetast wordt. 

• Verschillende screenformats. 

Low-, medium en high resolu- 
tion, interlace, overscan (geeft 
een compleet, dat wil zeggen 
schermgroot, videobeeld) en een 
tekenvel groter dan het monitor¬ 
scherm. 

• 3D-perspectief. 

• contour-bijwerk mogelijkheden 

zoals Smooth en Anti-Alias. 
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• Diverse nieuwe Fills. 

• Multi Color Cycle, de meer- 
kleurige uitvoering van color cy- 
cling. 

• Uitgebreidere zoomopties. 

• Multitasking middels het booten 
vanuit de Workbench. 

Alsof dit nog niet voldoende is zijn 
er minder in het oog springende ver¬ 
beteringen aangebracht, die echter 
minstens even waardevol zijn: 

°Een compleet nieuw 150 pagina’s 
tellend handboek met gebrui- 
kerslessen. 

° Een aanzienlijk snellere werking 
van de verschillende programma¬ 
onderdelen. Bijvoorbeeld het zon¬ 
der opnieuw te hoeven booten wis¬ 
selen tussen de verschillende 
schermresoluties en 

kleurschakeringen. 

° Het optimaal gebruik van RAM-uit- 
breidingen via het supergrote 
tekencanvas van 1008 x 1024 
pixels. 

0 Een onbeperkte keuze uit teken- 
penseien. 

“Vrije toegang tot alle tekststijlen 
en fonts. 

0 De mogelijkheid om een perseel 
in elke gewenste vorm te model¬ 
leren. 

°Een druk op de HELP-toets is vol¬ 
doende om bij het zwart slaan van 
het monitorscherm (ten gevolge 
van een verkeerde kleurenkeuze 
is er niets meer te zien) weer naar 
de vorige situatie terug te keren. 
Hoe langer je met DeLuxe Paint II 
werkt des te meer mogelijkheden je 



Dan Silva 


ontdekt. Wij moeten ons hier helaas 
beperken tot een korte bespreking 
van de krachtigste opties. 


Stencil en Fixed Background 

Bij het ontwerpen van de Stencil- 
optie heeft Dan Silva goed naar de 
techniek van het airbrushen gekeken. 
Om te voorkomen dat delen van de 
tekening per ongeluk meegespoten 
worden dekt de artiest hen met een 
transparant masker af. 

Ook bij DeLuxe Paint II kan de ge¬ 
bruiker zijn/haar tekening met een 
doorzichtig Stencil afschermen en 
zo nauwkeurig het paintproces con¬ 
troleren. Er kan zowel voor als achter 
het gestencilde object geschilderd 
worden. 

Het gebruik van Fixed Background 

lijkt veel op de toepassing van 
acetaat overlays. Een tekening wordt 
als het ware in de achtergrond ge¬ 
fixeerd en kan zo zonder schade aan 
het origineel overgeschilderd, afgek- 
rapt en zelfs in delen verplaatst wor¬ 
den. 

Beide opties besparen de artiest veel 
overmaak-werk en tijd. 


Fills 

DeLuxe Paint II kent een aantal ver¬ 
beterde en uitgebreide Fill- opties. 
Pattern Fill maakt het mogelijk om 
met de penseel elk gewenst pa¬ 
troon of kleur in elke grootte, vlakken 
op te vullen. Alle zelf getekende voor¬ 
werpen kunnen ook weer als een 
penseel of Fill-patroon ingezet wor¬ 
den. 

Perspective Fill is een krachtig gra¬ 


fisch tooi om 3D- kleurgradienten te 
creëren. 

Gradiënt Fill biedt horizontale en 
vertikale graduele Fills in 32 kleuren. 
De mate van kleurscheiding hangt 
daarbij af van de zelf in te stellen 
Dither-waarde. 0 is keihard. Maxi¬ 
mum geeft een superzachte over- 
gang. 


De sereens 

Een probleem voor de videohob- 
byist was het feit dat een DeLuxe 
Paint-scherm net iets kleiner bleek 
dan de beeldvullende video- dis¬ 
play. DeLuxe Paint II biedt de desktop 
videoer nu een Full Video randloos 
kleurenbeeld. Met behulp van een 
Genlocker plakt u moeiteloos een 
fantasie-achtergrond bij een nor¬ 
maal camerabeeld of computer- 
sprites voor een real-life scenery. 

Het werken met DeLuxe Paint II 
geeft het gevoel te compone- 
ren met kleuren en beelden. 

De maximum grootte van het teken¬ 
canvas, het Virtual screen, bedraagt 
bij versie 2.0 1008 x 1024 pixels. Bij 
voldoende RAM- geheugen kunnen 
zo gemakkelijk meerdere planes 
van meer dan 1 miljoen pixels met el¬ 
kaar gecombineerd worden. Ook is 
het met 1MB of meer RAM mogelijk 
om meerdere schermen in de actieve 
mode te hebben. Alleen de hardware 
is nog maar beperkend in tegenstel¬ 
ling tot de oude situatie waarbij de 
grafische software de broekriem 
aantrok. 

Een dankbare verbetering is het bin¬ 
nen DeLuxePaint switchen tussen de 
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verschillende grafische modes. Bij 
versie 1.0 was daarvoor een reboot 
nodig. Bij versie 2.0 voldoet een sim¬ 
pel muis-commando en de scherm- 
tekening krijgt een andere res-mode 
tijdens het painten. 

Tot slot noemen wij nog de interlace- 
modus waarbij de videoliefhebber 
32 kleuren in 320 x 400 mediumres 
kan onderbrengen. Uiteraard neemt 
het flikkeren van het beeld op 25Hz 
(i.p.v 50Hz) wel iets toe. 


2D/3D 

Door middel van Perspective Draw- 

ing kan de tekenaar met een muisklik 
tussen 2D- en 3D-perspectief switch¬ 
en. In de 3D-modus kan de verfkwast 
zowel in de X-, Y- als Z-richting be¬ 
wogen worden. Er zijn twee ver¬ 
schillen 3D-modes: Perspective 
Mapping en Perspective Fill. De 
penseel past zich qua grootte auto¬ 
matisch aan de perspectivistische 
vertekening aan. Dat hadden onze 
beroemde landschapsschilders uit de 
gouden eeuw eens moeten zien.... 
Perspective Mapping tekent met de 
penseel een 3D-matrix (grid) die later 
met behulp van Perspective Fill gra¬ 
dueel wordt opgevuld. De kleurgra- 
dient creërt een extra 3D-dimensie. 


Tekenhulpjes 

De tekentools van DeLuxe Paint II 
vallen in de volgende kategorieën 
uiteen: 

• Color en resolution tools. Er 
zijn zes kleuren-controls voor het 
besturen van het mengpercen- 
tage aan rood, groen en blauw, 
de kleurverzadiging, het contrast 
en het kleurzweem. De details 


en shades kunnen ook achteraf 
nog gewijzigd worden. Kleurover¬ 
gangen worden automatisch tus¬ 
sen de twee opgegeven over- 
gangskleuren gegenereerd. Er 
zijn 16 (in interlace 32) kleuren 
uit een pallet van 4096 meng- 
kleuren beschikbaar. 

De Penselen. Bij DeLuxe Paint 
II kan werkelijk alles als teken¬ 
pen of verfkwast gebruikt wor¬ 
den. Er. zijn standaard brushes 
(cirkels, rechthoeken, punten), 
zelf te ontwerpen brushes en de 
corral-functie om een onderdeel 
van de tekening als brush in te 
zetten. 

De Zoomoptie biedt de artiest 
een uitvergroting van een deel 
van de tekening waarop alle 
paint-tools gebruikt kunnen wor¬ 
den. Met de scroll-optie kan de 
tekenaar de hele plaat op zijn 
gemak doorlopen. Via spilt- 
screen zijn gelijktijdig het uitver¬ 
grote deel en de normale teke¬ 
ning te zien. 


• De bijwerkopties. Het tooi 
Smooth vult de contouren rond 
gedigitaliseerde beelden op. 
Donkere banden rond dergelijke 
objecten behoren daarmee tot 
het verleden. Anti-Alias werkt 
vervormde en gerafelde uitein¬ 
den van figuren bij voor het 
maken van vloeiende overgan- 
gen. 

• Symmetrish tekenen via spie¬ 
gelen, dakpansgewijs of cyclish 
herhalen van figuren of objecten. 

• Grids voor het precies op schaal 
tekenen. 

• Multi Cycle creërt een veel 
kleurige waterval van tinten. 
Deze optie is heel geschikt voor 
het maken van animatie-effecten. 

Voor wie helemaal niet kan tekenen 
is er nog altijd de mogelijkheid om 
beelden te digitaliseren en vervol¬ 
gens artistiek te bewerken. Bijvoor¬ 
beeld met het geheel DeLuxe Paint 
compatibele Digi-View van NewTek 
zijn via de Hold and Modify-mode 
adembenemende effecten te berei¬ 
ken. 

DeLuxe Paint II slaat een krachtige- 
brug tussen de Amiga, artiest of 
desktop/video-werker. De geboden 
mogelijkheden slaan tot nu toe alles 
wat op een gewoon PC-tje mogelijk 
was. Er blijft natuurlijk altijd wat te 
wensen en verbeteren over, maar wie 
meer wil zal ook vele malen zoveel 
voor hard- en software moeten neer¬ 
tellen. DeLuxe Paint II zal in Neder¬ 
land tussen de ƒ350,- en ƒ400,- gul¬ 
den gaan kosten. Of de Amerikaanse 
upgrade-kit voor versie 1.0 ook in ons 
land beschikbaar komt, was bij het ter 
perse gaan van dit nummer nog niet 
bekend. 


Fill Type 
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We zijn inmiddels al een eind op weg met onze Basic cursus. In de afgelopen 13 les¬ 
sen hebben we al heel wat over Basic kunnen leren en de nodige programma’s ge¬ 
schreven. De moeilijkheidsgraad is daardoor inmiddels gestegen tot het niveau van 
een aankomend programmeur. Toch probeert Jan Bodzinga, waar het maar mogelijk 
is, de stof voor iedereen begrijpelijk te houden. Daardoor kunnen ook de nieuwe le¬ 
zers van dit blad nog altijd ‘aanloggen’ en meedoen. De cursus is zo opgezet, dat 
zelfs de nieuwelingen op computergebied stap voor stap kunnen worden ingewijd in 
de geheimen die de computer voor ons in petto heeft. 


Basis Basic 

Deel 14: Een Database (III) 


I n de voorgaande afleveringen zijn we begonnen met de opzet voor een 
professioneel ogend database-programma. De listing is opgezet vooreen 
adressenbestand, maar kan door de gebruiker zelf gemakkelijk worden 
aangepast aan andere door hem of haar gewenste toepassingen. Het ge¬ 
heel is een vrij ingewikkeld Basicprogramma, maar door een goede struc- 
tuur.en opzet van de listing is het relatief eenvoudig om de diverse sub- 
routines te kunnen lokaliseren en eventueel aan te passen. 



Tot op dit moment hebben we alle 
universele subroutines die in het pro¬ 
gramma voorkomen behandeld, ter¬ 
wijl ook het hoofdmenu en het toe¬ 
voegen van gegevens als routines in¬ 
middels zijn behandeld. Vooral de 
principes van gegevensbestanden 
komen aan de orde. Aan het eind van 
deze les zijn we zeker weer een heel 
stuk verder met dit fraaie stuk pro- 
grammeerwerk. 

Wat vooraf ging. 

De vorige afleveringen hebben we 
voor het grootste deel gewijd aan het 
opzetten van dit programma. Als eer¬ 
ste zijn we uitvoering ingegaan op de 
diverse arrays. Een array is een ver¬ 
zameling van gegevens, die onder 
dezelfde noemer in een programma 
voorkomen. We kunnen op die 
manier erg veel, min of meer iden¬ 
tieke, gegevens gemakkelijk verwer¬ 
ken. Daardoor zijn we zo flexibel, dat 
het voor een programma weinig uit¬ 
maakt, of we nu bijvoorbeeld 20 re¬ 
cords of 2000 records in het pro¬ 
gramma willen verwerken. Uiteraard 
is het beschikbare geheugen daarbij 
wel van belang. Het programma in 
casu verandert echter in ’t geheel niet i 
door de grote hoeveelheid data. 


De opzet van ons programma is 
structureel. Dat wil zoveel zeggen als 
voor iedere bewerking of onderdeel 
daarvan een strict eigen gebied in de 
programma-listing is gereserveerd, 
waar dan ook niets anders kan en 
mag gebeuren. Ofwel als er een in¬ 
voer voor JA of Nee wordt gevraagd, 
dan hebben we daar een aparte 
(sub)routine voor. Zo gaat het ook 
met alle andere bewerkingen in het 
programma. Onze listing is verdeeld 
in 13 routines. We zullen voor de vol¬ 
ledigheid het geheel nog even op een 
rij zetten: 


*0000 - 0100REM programmatitel 

*0100 - 0300lnitialisatie 

*0300 - 1000Diverse subroutines 

*1000 - 2000Programma (start)menu 

*2000 - 3000Toevoegen 

3000 - 4000Muteren 


4000 - 5000Verwijderen 
5000 - 6000Printen 
6000 - 7000Sorteren 
7000 - 8000Zoeken 
8000 - 9000lnlezen 
9000 - 9500Wegschrijven 
9500 - 9999Stoppen 


ai aeze onderdelen zitten op < 

uf st t P' ek ,n de complete listi 
We hebben dit zo geschreven, , 


ook later op een snelle en handige 
manier wijzigingen en verbeteringen 
in het programma te kunnen aan¬ 
brengen. We hoeven maar op het 
programma-schema te kijken om te 
weten in welke regels we een be¬ 
paalde module moeten zoeken. 
Daardoor lopen we de minste kans 
om op een verkeerde plaats de wij¬ 
zigingen in het programma aan te 
brengen, wat op z’n beurt weer een 
grote tijdwinst kan betekenen. De met 
een (*) asterix gemerkte modules zijn 
in de vorige lessen uitvoerig aan de 
orde gekomen. Aan het eind van 
deze les zullen we een complete list¬ 
ing geven van alle tot nu toe behan¬ 
delde onderdelen van het program¬ 
ma. 

Muteren. 


Het muteren of wijzigen van 
gegevens in ons adressenprogram¬ 
ma is een wezenlijk onderdeel van 
goed gegevensbeheer. Er zijn in het 
verleden al heel wat theorieën over 


yemaaKi, noe aai optimaal in z n werk 
moet gaan. We zullen ons met deze 
ingewikkelde materie niet verder in¬ 
laten dan nodig is. Wel moet je weten 
dat het wijzigen van een record in¬ 
houdt, dat oude data die in een be- 
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paalde record aanwezig zijn worden 
vervangen door nieuwe gegevens. 
Het muteren kan bijvoorbeeld nodig 
zijn, als één van de personen die in 
ons adressenbestand voorkomt een 
ander adres heeft gekregen. Ook bij 
aanvulling van de bestaande gege¬ 
vens moet er worden gemuteerd. 
De grootte van het record in de array 
blijft bij het muteren echter altijd 
gelijk. Alleen de data in het record 
kan wijzigen. We moeten ons eerst 
terdege afvragen wat er allemaal 
wel en juist niet gebeurt, als we een 
record geheel of gedeeltelijk gaan 
wijzigen. Als eerste (en enige) wor¬ 
den de gegevens in het beweuste 
record veranderd. Dat betekent, dat 
de lengte van dit record - we wer¬ 
ken met sequentiele bestanden¬ 
kan wijzigen. Het totaal aantal 
records, of adressen in het bestand 
wijzigt echter niet. Dit is iets, wat we 
in de gaten moeten houden bij het 
programmeren. 

Principe 

Hoe gaat nu het wijzigen op papier in 
z’n werk ? 

We moeten natuurlijk eerst weten 
welk record we willen gaan verande¬ 
ren. De meest omslachtige methode 
is, om alle bestaande records stuk 
voor stuk op het scherm te laten 
verschijnen en bij elk adres te vragen 
of dit wellicht veranderd moet wor¬ 
den. Dat is uiteraard een leuk 
tijdverdrijf, maar handig is het aller¬ 
minst. We zullen er iets op moeten 
vinden, om tamelijk snel het te wij¬ 
zigen record boven water te krijgen. 
De eerste bewerking bij het wijzigen 
bestaat dus uit het opzoeken van het 
bewuste record. Het gezochte record 
moet ter controle op het scherm wor¬ 
den geprint. Daarna moeten we via 
communicatie met de gebruiker 
vasstellen of dit het juiste adres is 
wat moet worden gemuteerd. De 
derde stap is dus het definitieve be¬ 
sluit om het zojuist gezochte adres te 
gaan wijzigen. 

Als vierde in de reeks handelingen 
moeten we de nieuwe gegevens 
per veld invoeren. Daarna volgt op¬ 
nieuw een controle op de in¬ 
gevoerde gegevens en als laatste 
moeten de oude gegevens uit het be¬ 
stand (de tweedimensionele array) 
worden vervangen door de nieuwe, 
zojuist ingetypte data. 

Al met al een hele rij handelingen, die 
we stuk voor stuk moeten afwerken 
tijdens het muteren: 

MUTATIE-batch 

1 Zoeken 
2Printen 


SControle 

4lnvoeren 

5Controle 

6Vervangen 

De eerste bewerking, het zoeken, 
vinden we ook terug als een aparte 
module in het hoofdmenu. De daar¬ 
voor gereserveerde programmare¬ 
gels bevinden zich tussen 7000 en 
8000. Het zou dom zijn, als we voor 
het werken met het mutatie-gedeel- 
te geen gebruik van de nog te schrij¬ 
ven module voor het zoeken zou¬ 
den maken. Daarom lijkt het verstan¬ 
dig eerst de zoekmodule te schrijven 
en te bespreken. 

Zoeken 

Het opzoeken van records gaat in 
ons programma vanuit het compu¬ 
tergeheugen. We zijn in deze serie 
nog niet zover, dat we een adressen¬ 
bestand vanaf de tape of disk zullen 
gaan benaderen. Hier lopen we ook 
tegen één van de grenzen van de 
mogelijkheden van het programma 
op. Het maximum aantal adressen 
wat in ons bestand kan worden ver¬ 
werkt is afhankelijk van de grootte per 
record en uiteraard de ruimte aan 
vrije bytes in het computergeheugen. 
Gemiddeld neemt een record zo'n 
100 bytes geheugen in beslag, waar¬ 
door we dus met 20.000 Bytes 
Free nog altijd 200 adressen per be¬ 
stand kunnen verwerken. Daarnaast 
is het natuurlijk altijd mogelijk om 
meerdere bestanden met ver¬ 
schillende namen met dit programma 
te kunnen verwerken. Het opzoeken 
van records in dit adressenbestand 
kan vanwege de (geschatte) maxi¬ 
male hoeveelheid adressen per be¬ 
stand gebeuren op de meest simpele 
manier. Dat betekent, dat de gebrui¬ 
ker wordt gevraagd, op welke 
veldsoort (naam, straat, postcode 
etc.) er moet worden gezocht. 
Nadat het veldtype door de gebruiker 
is ingegeven, gaan we met een lus 
door het complete bestand, om de 
gezochte code te vergelijken met de 
inhoud van het bewuste veld. Vin¬ 
den we een 'match', waar zoek- 
code en veld gelijk zijn, dan wordt het 
complete record op het scherm 
geprint. Daarna zoeken we verder 
naar een eventueel volgend identiek 
veld, om ook dit record te printen.... 
en zo verder tot het eind van het be¬ 
stand. 

Het zoeken gaat in de echte databa¬ 
ses meestal op een wat geavanceer¬ 
der manier. Men gaat dan uit van een 
zogenaamde ’zoekindex’. Dat 
betekent, dat het hele bestand moet 
worden gecatalogiseerd; er wordt 


een aparte 'index' van gemaakt, 
waarin dan alleen van bijvoorbeeld 
het veld 'Postcode' de gegevens 
voorkomen, met daarachter het 
(logische) nummer van het record. 
Op diei manier is er toch nog heel snel 
te zoeken en te sorteren op enorme 
hoeveelheden adressen. In ons 
geval, met vaak niet meer dan 200 
entries, hoeven we niet zo ver te 
gaan, dat we aparte indexen bouwen 
voor de velden waarop het meeste 
naar gegevens zal woren gezocht. 

Zoekmethode 

Nadeel bij de door ons gevolgde 
methode is natuurlijk de snelheid. 
Daar zullen we echter niet zoveel van 
merken, omdat de bestanden rela¬ 
tief kléin blijven. Het grote voordeel 
van onze zoek-module is echter het 
feit, dat we zo hebben geprogram¬ 
meerd, dat het voor de gebruiker mo¬ 
gelijk is, om op ieder gewenst veld het 
bestand af te 'scannen' op zoek naar 
de gevraagde gegevens. En dat alles 
ook nog, zonder veel extra regels aan 
het programma toe te voegen. Het 
geheim van deze manier schuilt in de 
twee-dimensionele array A$( ), die 
we gebruiken om de adresrecords 
in op te slaan. Laten we de listing van 
het zoekgedeelte maar eens bekij¬ 
ken: 

7000ÓOSUB 500 : REM kopprint 

7010PRINT:PRINT"Geef sleutelveld 

7020FOR 11 = 0 TO 5 
7030PRINT 11+1- ";VN$(II) 
7040NEXT II 

7050PRINT : PRINT "Maak een 
keuze 11 * 

7060GÓSUB 800 : REM lees toets 
7070KK= VAL(T$) 

7080IF KK OR KK 7 THEN 7050 
7090IF KK = 7 THEN 

RETURN:REM menu 
7100VL=KK-1 : REM veldsoort 

Het eerste deel van de zoekmodule 
houdt zich bezig met de invoer van 
het 'sleutelveld’. Daarmee wordt 
het veld in het adressenrecord 
bedoeld, waarin het zoekgegeven 
moet worden gezocht. Om deze 
routine zo universeel en efficiënt mo¬ 
gelijk te maken, kunnen we -zoals 
eerder opgemerkt- de zoekcode in¬ 
geven voor alle beschikbare velden. 
Welisyvaar gaat ons programma niet 
verder dan slechts één zoekcode per 
keer, jnaar het is niet erg moeilijk dit 
later zelf uit te breiden tot meerdere 
condit es. Dan zou je bijvoorbeeld 
alle namen die beginnen met een 
’B’ en daarnaast een postcode heb¬ 
ben die begin met '12' uit het bestand 
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kunnen 'filteren'. Ons geval beperkt 
zich tot één conditie. Maar deze 
routine kunnen we wel op ieder veld 
van de array loslaten. 

Met hulp van de serie vaste sub- 
routines bepalen we de keuze voor 
de veldnaam. Alle namen worden 
geprint op het scherm (regel 7010 - 
7090). Daar zien we, dat eerst de kop 
met de bewerking wordt geprint op 
het scherm (sub 500), waarna in de 
lus II alle 6 veldnamen (VN$()) in 
beeld komen. We gebruiken vervol¬ 
gens subroutine 800 v.v. om de in¬ 
getypte keuze te verwerken. De 
keuze, variabele KK wordt getest op 
z’n geldigheid, waarna de veldnaam- 
variabele (VL) de waarde krijgt van 
KK-1. Waarom deze waarde 1 lager 
ligt dan KK moet je zelf maar eens 
proberen uit te zoeken. 

We zijn inmiddels toe aan het volgen¬ 
de gedeelte van de zoekroutine: 

7110VLAG=0 

7120GOSUB 500 : REM kopprint 
7130PRINT:PRINT:PRINT 
7140PRINT "zoeken op 
VN$(VL);" 

7150INPUT Z$ 

7160FOR I = 1 TOTT : REM loop alle 
records 

7170IF LEFT$(A$(I,VL),LEN(Z$)) = 
Z$ THEN GOSUB 7210:IF SU=99 
THENI = TT 
7180NEXT I 

Dit gedeelte houdt zich bezig met het 
echte scannen van het gehele be¬ 
stand. Eerst wordt nogmaals een 
(nieuwe) kop geprint, waarna in regel 
7150 de invoer van de op te zoeken 
string in variabele Z$ wordt gezet. 

In de lus I, die loopt van adres 1 tot 
adres TT, - het totaalaantal- wordt 
vervolgens op veld VL in de array 
A$(I,VL) bekeken of Z$ overeen komt 
met hetzelfde deel in dat veld. 
Deze test staat in het eerste gedeelte 
van regel 7170. Deze regel bevat dan 
ook de kern van de hele zoekroutine. 
We testen alleen dat gedeelte van de 
string dat even lang is als Z$. Dit 
gebeurt door het gebruiken van de 
functie LEFT$(). Op deze manier is 
het ook mogelijk alle namen die bij¬ 
voorbeeld beginnen met een "S" op 
te zoeken. De lengte van Z$ - 
LEN(Z$)- is dan natuurlijk 1, waar¬ 
door ook van alle te testen namen 
in A$(I,VL) via LEFT$() alleen het 
eerste karakter wordt bekeken. Dit 
gaat niet alleen sneller, maar is ook 
veel handiger, omdat we op deze 
manier ook namen en andere 
gegevens waarbij we niet helemaal 
zeker zijn van spelling en dergelijke I 
gemakkelijk uit het bestand kunnen | 
filteren. Wordt er inderdaad een j 


goede string gevonden in array 
A$(l,VL) dan wordt subroutine 7210 
v.v. uitgevoerd. Over de variabele SU 
zullen we het later nog hebben. In 
ieder geval wordt aan het eind van 
regel 7170 de lus beëindigd door de 
waarde van I gelijk te stellen aan 
TT, als SU=99. Daardoor wordt in 
regel 7180 niet opnieuw via NEXT 
teruggesprongen naar het begin 
van de lus. In alle andere gevallen 
wordt deze routine afgesloten met 
een NEXT tot I de waarde TT heeft 
bereikt en het gehele bestand is af¬ 
gezocht. 

Vlaggen 

Als laatste opmerking bij deze pro¬ 
grammaregels wil ik nog wijzen op de 
variabele VLAG in regel 7110. 
Deze wordt elke keer dat de zoek¬ 
routine wordt aangeroepen op 0 
gezet. Aan de hand van de vlag- 
waarde zullen we verder op bekij¬ 
ken of we al dan niet een 'match' heb¬ 
ben gevonden tussen Z$ en de in- 
houd van één of meer indexen in ons 
adressenbestand. Daarvoor hebben 
we regel 7190: 

7190IF VLAG = 0 THEN 7380 

7200RETURN 

Als vlag nog steeds de waarde 0 
heeft, wordt in regel 7190 een aparte 
subroutine aangeroepen, die zit op 
7380. Deze routine meldt op het 
scherm, dat er geen enkel veld is ont¬ 
dekt in het bestand, waarin de ge¬ 
vraagde string Z$ voorkomt Het is 
uiteraard een goede gewoonte om dit 
soort fouten apart aan de gebruiker 
door te geven. Vandaar routine 
7380 - 7420: 

7380REM record niet aanwezig 

7390PRINT Z$ " niet gevonden" 
7400PRINT 'Typ toets voor vervolg" 
741OGOSUB 800 
7420RETURN 

Veel is er niet te zeggen van deze 
schermmelding, waarbij keurig wordt 
gewacht tot de gebruiker een toets 
heeft ingedrukt om aan te geven, 
dat hij de melding heeft gelezen. 

Match 

Veel interessanter dan het voor¬ 
gaande is het programmagedeelte 
wat wordt uitgevoerd, als Z$ matcht 
met een gedeelte van een veld. De 
aanroep voor deze subroutine vinden 
we in regel 7170: 

7210REM record gevonden - print 
op scherm 


7220GOSUB 500 
7230VLAG =1 

7240PRINT "Record nummer: ";l 
7250FOR II = 0 TO 5 
7260PRINT VN$(II)": "A$(l,ll) 
7270NEXT II : PRINT 

Na de kop vinden we hier het nut van 
variabele VLAG. Zodra er een match 
optreedt, wordt naar deze routine 
gesprongen en wordt variabele 
VLAG 1. Daardoor is het mogelijk de 
test op het al of niet vinden van een 
goede string aan de hand van de 
waarde van VLAG te bepalen. Ver¬ 
volgens wordt in lus II zowel de 
veldnamen als de gegevens in 
array A$() op het scherm geprint. 
Merk hierbij op, dat de index van 
het complete gevonden record 
wordt bewaard in lusvariabele I, 
die we hebben gegenereerd in regel 
7160. Het is belangrijk dit te ont¬ 
houden voor een paar andere 
modules in ons programma, die ook 
gebruik maken van deze zoek¬ 
module. 

De module-vlag SU 

In onze subroutine gaan we verder 
vanaf regel 7280 met variabele SU. 
Deze SU heeft in ons geval drie mo¬ 
gelijke waarden: 0, 1 of 2: 

7280ON SU+1 GOTO 7300, 7340, 
7340 : REM SU=SOORT MODULE 

7290REM SU=0 normaal zoeken 
7300PRINT "Typ toets voor vervolg" 
731 OGOSUB 800 
7320GOTO 7370 

7330REM SU=1 Verwijderen SU=2 
Muteren 

7340PRINT "Dit record bewerken 

(J/N)" 

7350GOSUB 850 

73601F T$="J" OR T$="j" THEN 

Cl l-QQ 

7370RETURN 

We kunnen SU ook beschouwen als 
een soort ’flag’, die door zijn waarde 
aangeeft waar we precies mee 
bezig zijn. Op die manier kunnen 
we van eenzelfde subroutine op 
meerdere wijzen gebruik maken. 
Heeft SU de waarde 0, dan 
betekent dit, dat we bezig zijn met 
een kale zoekactie, die vanuit het 
hoofdmenu wordt aangestuurd. In 
regel 1010 vinden we dan ook de op¬ 
dracht (LET) SU=0. De waarde van 
SU wordt daar iedere keer dat we 
bij het hoofdmenu terecht komen op 
0 gezet. Als SU een waarde heeft van 
1, betekent dit, dat we de zoekroutine 
aanroepen vanuit de routine om een 
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record te verwijderen. We komen 
daar straks wel op terug. Ook voor 
het muteren (wijzigen) van een 
adresrecord, moeten we eerst zoe¬ 
ken naar het bewuste record in de 
array. Omdat we slimmer dezelfde 
routine voor het zoeken kunnen ge¬ 
bruiken, die toch al aanwezig is in het 
programma, geven we dit aan, door 
in de mutatie-routine SU de waarde 2 
toe te kennen. Tot slot krijgt SU nog 
een speciale waarde, namelijk 99 
(erg symbolisch) als er specifieke din¬ 
gen met een record gaan gebeuren. 
De test op SU voeren we uit in 
regel 7280, met een ON .. GOTO op¬ 
dracht. Omdat SU ook de waarde nul 
kan hebben, moeten we er eerst 1 bij 
tellen, om dit commando goed te 
laten functioneren. Het is uiteraard 
helemaal niet nodig, om in ons 
geval met een ON..GOTO te werken, 
maar wel beter voor de structuur en 
zeker te verkiezen als we nog meer 
waarden aan de SU vlag willen 
toekennen. 

Als SU=0, dan kunnen we volstaan 
met een opdracht om een toets in te 
typen, als het gevonden record, wat 
op het scherm staat, door de gebrui¬ 
ker is bekeken. De routine gaat via 
sub 800 vv. door naar de zoeklus, om 
naar nog meer eventuele gelijke 
string te zoeken. 

Is SU 1 of 2, dan moet er iets anders 
gebeuren. We moeten nu namelijk 
weten, of er met het specifiek gevon¬ 
den record iets moet gebeuren, of dat 
er verder moet worden gezocht, naar 
een andere ’match’ in het bestand. 
Aan de hand van een eenvoudige 
JA/NEE vraag (regel 7340) bepalen 
we of het gevonden record het 
juiste adres bevat. Is dit zo (regel 
7360) dan geven we SU de waarde 
99 om dat aan te geven. Is het tegen¬ 
deel waar, dan houdt SU z’n 
oorspronkelijke waarde en keren we 
ook terug naar de zoekroutine. 
Heeft SU de waarde 99 dan zien we 
bij terugkeer in de echte zoekroutine, 
dat aan de hand van SU=99 de lus en 
de routine beëindigd wordt, om terug 
te gaan naar de module die het 
zoeken heeft geactiveerd. 

Subroutines 

Het is verstandig deze zoekroutine in 
z’n geheel eens grondig te bekijken, 
omdat er nogal wat handigheidjes in 
zitten verstopt, die we in eerdere 
lessen al uitvoerig hebben bekeken, 
maar wellicht in het normale pro- 
gramma-gebruik niet meer zo opval¬ 
len. Let maar een op hoe vaak we nu 
al bepaalde kleine vaste subrouti nes 
hebben aangeroepen, en met welk 
doel dit is gebeurd. Je zult verbaasd 


zijn over de diverse mogelijkheden 
die verscholen zitten in een paar re¬ 
gels programma. Het is daarbij 
helaas niet zo, dat je kunt leren pro¬ 
grammeren, door steeds maar list- 
ings van anderen klakkeloos over te 
nemen. Dan kun je zelfs beter met¬ 
een naar de winkel gaan om er een 
echt goed pakket voor je toepas¬ 
singen te kopen. Wil je zelf aan de 
slag, dan moet je niet alleen een 
goede analyse uitvoeren op be¬ 
staande listings, zoals deze, maar 
daarnaast ook helemaal zelf aan 
het schrijven. Ervaring is in dit geval 
de beste leermeester. Ook van eigen 
(en andermans) fouten valt een 
heleboel te leren. 

Muteren II 

We hebben nu de complete listing 
van de zoekroutine achter ons. Daar 
zijn we eigenlijk op gekomen, omdat 
we ontdekten, dat, voordat er ook 
maar een record kan worden gewij¬ 
zigd, dit eerst in het bestand moet 
worden opgezocht. In de zoekroutine 
hebben we aan de eerste twee be¬ 
werkingen tijdens het muteren vol¬ 
daan, zoeken & printen. We zullen 
daarom de feitelijke mutatie-routine 
eens bekijken: 

2999 REM Muteren / Wijzigen 

3000 GOSUB 500: REM kopprint 
3005 SU=2: GOSUB 7010 :IF SU = 2 
THEN RETURN 

We zien in de eerste regels, dat SU 
hier inderdaad de waarde 2 krijgt. 
Bovendien printen we een eigen kop, 
met hulp van subroutine 500. Vervol¬ 
gens gaan we naar de zoekroutine, 
door het aanroepen van GOSUB 
7010. Als SU terug komt met een 
waarde 2, dan betekent dit, dat we tij¬ 
dens het zoeken geen record hebben 
gevonden, wat we willen wijzigen. 
Daarom kunnen we zonder proble¬ 
men terug naar het hoofdmenu met 
een RETURN-opdracht. Heeft SU 
een andere waarde dan 2, in ons 
geval dat symbolische 99, dan gaan 
we verder met het wijzigen van het 
hele record: 

3010 GOSUB 500: REM KOPPRINT 

3011 FOR 11 = 0 TO 5 

3012 PRINT VN$(II);":";A$(I,II) 

3014 NEXT II 

3020 PRINT:PRINT "Wijzigen zeker 
(J/N )" 

3030 GOSUB 850: IF T$= ”N" OR 
T$="n" THEN RETURN 

In bovenstaand gedeelte wordt (op¬ 
nieuw) het hele record op het scherm 
gezet, waarbij we ter controle de 


vraag stellen of dit het juiste record is. 
Geven we hier een ontkennend 
antwoord, dan wordt ook terug 
gesprongen naar het hoofdmenu en 
gebeurt er niets met de data in het 
record. 

In alle andere gevallen gaan we over 
tot het daadwerkelijk wijzigen van alle 
velden. Dit gebeurt, door voor alle 
velden nieuwe gegevens in te toet¬ 
sen: 

3040 PRINT CHR$(19) : GOSUB 
520: REM PRINT HOME 
3050 FOR 11 = 0 TO 5 
3060 PRINT VN$(II);": 

3070 INPUT HA$(II) 

3080 NEXT II 

3090 PRINT : PRINT "Korrekt in¬ 
gevoerd (J/N)"; 

3100 GOSUB 850 

3110 IF T$="n" OR T$ = "N" THEN 
3000 

Ook na de invoer weer een controle 
op de juistheid van de gegevens, 
waarna we overeenkomstig het 
antwoord ofwel opnieuw aan de in¬ 
voer beginnen, ofwel het gewijzigde 
record in ons adressenbestand op¬ 
nemen: 

3120 AA=I : GOSUB 300 : REM 
wegzetten in array 

3130 PRINT:PRINT "Meer records 
wijzigen (J/N)"; 

3140 GOSUB 850 

3150 IF T$="n" OR T$ = "N" THEN 

RETURN 

3160 GOTO 3000 

Al met al een niet erg moeilijk te 
begrijpen routine. Als je deze verge¬ 
lijkt met de regels tussen 2000 en 
300, waar een record wordt toege¬ 
voegd aan het bestand zul je weinig 
verschillen tegen komen. Het enige 
echte verschil zit in de indexvariabele 
van array A$(). Bij het toevoegen 
hebben we daar steeds de hoogste 
waarde, terwijl in dit geval de index- 
waarde van de zoeklus (I) wordt ge¬ 
bruikt, om het juiste record te bepalen 
en bewerken. Daarom is met name 
regel 3120 sterk verschillend van 
regel 2120, hoewel dezelfde sub¬ 
routine (300) wordt gebruikt. Bekijk 
deze module rustig en, wat meer is, 
probeer hem uit op je eigen compu¬ 
ter. 

Tot slot. 

Hiermee hebben we weer twee leuke 
modules aan ons programma 
toegevoegd. We kunnen nu niet al¬ 
leen adressen toevoegen aan het be¬ 
stand, maar ook zoeken in alle moge¬ 
lijke velden, terwijl we als laatste 


30 


Commodore Info 4/87 



ook wijzigingen in de bestaande 
adresrecords kunnen aanbrengen. 
Het geheel begint daardoor ook 


steeds meer op een volwassen pro¬ 
gramma te lijken. Voor de vol¬ 
ledigheid zullen we het complete pro¬ 


gramma tot op dit moment in z’n ge 
heel nog een keer afdrukken: 


10REM Menu gestuurde DATABASE 

20REM voor adressenbestand 
30REM Commodore-lnfo 1987 
40REM 870601/v.1.04 
100REM initialisatie 
110REM 

120TT=0 : REM totaalaantal records 
130DIM A$(300,5) : REM aantal records max. 

140KZ=0 : REM keuze 

1501 = 0 : REM temp.var 

160DIM KZ$(10): REM keuzestrings 

170DIM ST((LOG(300)/LOG(2)+4) , 1) :REM TEMP- 

ARRAYS 

180DIM VN$(7): REM veldnamen 
200REM init 


850REM JA/NEE input 
8520K = 0 : REM vlag 
855A$="NnJj": REM keuzemogelijkheden 
860GOSUB 810 : REM input toets 
865FOR 11= 1 TO LEN(A$) 

870IF T$ = MID$(A$,II,1) THEN OK=1 
880NEXT II 

890IF OK THEN RETURN: REM met j/n 
895GOTO 860 : REM opnieuw 
898END 

899REM inlezen keuzemogelijkheden 
9001 = 0 : TK=0 
910READ KZ$(I) 

9201F KZ$(I) = "eind" THEN TK = I - 1 : GOTO 950 
9301 = 1 + 1 


210GOSUB 900 : REM keuze lezen 
299GOTO 1000 : REM begin programma 
300REM var. wegzetten in array 
310FOR 11 = 0 TO 5 
320A$(AA,II)=HA$(II) 

330NEXT 

340RETURN 

399REM data keuzemogelijkheden 

400DATA "KEUZEMENU ADRESSENBESTAND" 

41 0DATA "Records toevoegen" 

411 DATA "Records wijzigen" 

412DATA "Records verwijderen" 

413DATA "Records opzoeken" 

414DATA "Bestand sorteren" 

415DATA "Bestand printen" 

416DATA "Bestand inlezen" 

417DATA "Bestand wegschrijven" 

418DATA "Stoppen" 

419DATA "eind" 

420DATA "Naam 
421 DATA "Voorletters 
422DATA "Straat en nummer " 

423DATA "Postkode 

424DATA "Woonplaats 

425DATA 'Telefoon 

500REM printen kop 

510PRINT CHR$(147) : REM CLS 

520PR INT n *********************************” 

530PRINT: PRINT TAB(20-LEN(KZ$ 

(KZ))/2); KZ$(KZ):PRINT 
540PRINT "Aantal records : ";TT 
550PR INT "*********************************" 
560PRINT 
570RETURN 

600REM menu printen en keuze 
610GOSUB 500: REM printkop 
620FOR 1= 1 TO TK 
630PRINT I;" - KZ$(I) 

640NEXT I 

650PRINT : PRINT "Maak een keuze "; 
660GOSUB 800 : REM lees toets 
670KZ= VAL(T$) 

680IF KZ OR KZ TK THEN 660 
690RETURN : REM terug met kz 
800 REM inlezen van een toets 
810T$ = INKEY$ ; REM lees toets 
820IFT$="" THEN 810 
830RETURN : REM terug met t$ 


940GOTO 910 
950FOR I = 0 TO 5 
960READ VN$(I) 

970NEXTI 

1000REM begin programma 

1010SU=0:KZ=0:GOSUB 600 : REM menu 

1020IF KZ = TK THEN 9500 : REM einde 

1030ON KZ GOSUB 

2000,3000,4000,5000,6000,7000,8000,9000 

1040GOTÓ 1010 : REM opnieuw menu 

2000REM toevoegen aan bestand 

2010GOSUB 500 : REM printen kop 

2020PRINT 

2030FOR II = 0 TO 5 

2040PRINT VN$(II);": 

2050INPUT HA$(II) 

2060NEXT II 

2090PRINT : PRINT "Korrekt ingevoerd (J/N)"; 
2100GOSUB 850 

211 0IF T$="n" OR T$ = "N" THEN 2000 
2120TT=TT+1: AA=TT:GOSUB 300 : 

REM wegzetten in array 

2130PRINT:PRINT "Meer records invoeren (J/N)"; 
2140GOSUB 850 

2150IF T$="n" OR T$ = "N" THEN RETURN 

2160GOTO 2000 

2999REM Muteren / Wijzigen 

3000GOSUB 500: REM kopprint 

3005SU=2: GOSUB 5010 :IF SU = 2 THEN RETURN 

3010GOSUB 500: REM KOPPRINT 

3011FOR II = 0 TO 5 

3012PRINT VN$(II);": ";A$(I, II) 

3014NEXT II 

3020PRINTPRINT "Wijzigen zeker (J/N)" 
3030GOSUB 850: IF T$="N" OR T$="n" 

THEN RETURN 

3040PRINT CHR$(19): GOSUB 520: 

REM PRINT HOME 
3050FOR II = 0 TO 5 
3060PRINT VN$(II);":"; 

3070INPUT HA$(II) 

3080NEXT II 

3090PRINT : PRINT "Korrekt ingevoerd (J/N)"; 
3100GOSUB850 

3110IF T$="n" OR T$ = "N" THEN 3000 
3120AA=I: GOSUB 300 : REM wegzetten in arrav 
o J ;PRINT "Meer records wijzigen (J/N)"- 
3140GOSUB850 y 1 ’’ 
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(vervolg) 

3150IF T$="n" OR T$ = "N" THEN RETURN 

3160GOT03000 

3999REM verwijderen 

6999REM ZOEKEN in bestand 
7000GOSUB 500 : REM kopprint 
701OPRINT:PRINT"Geef sleutelveld 
7020FOR II = 0 TO 5 
7030PRINT 11+1- ";VN$(II) 

7040NEXT II 

7050PRINT : PRINT "Maak een keuze 
7060GOSUB 800 : REM lees toets 
7070KK= VAL(T$) 

7080IF KK OR KK 7 THEN 7050 
7090IF KK = 7 THEN RETURN:REM menu 
7100VL=KK-1 : REM veldsoort 
7110VLAG=0 

7120GOSUB 500 : REM kopprint 
7130PRINT:PRINT:PRINT 
7140PRINT "zoeken op VN$(VL);" 

7150INPUT Z$ 

7160FOR I = 1 TO TT : REM loop alle records 
7170IF LEFT$(A$(I,VL),LEN(Z$)) = Z$ 

THEN GOSUB 7210:IF SU=99 THEN I = TT 


Tot zover het programma voor deze 
keer. We zijn al een heel eind op weg, 
om het een volwassen programma te 
laten worden. De volgende keer zul¬ 
len we een leuke manier intro¬ 


7180NEXT I 

71901F VLAG = 0 THEN 7380 
7200RETURN 

7210REM record gevonden - print 
7220GOSUB 500 
7230VLAG =1 

7240PRINT "Record nummer: ";l 
7250FOR II = 0 TO 5 
7260PRINT VN$(II)":"A$(I,II) 

7270NEXT II : PRINT 

7280ON SU+1 GOTO 7300, 7340, 7340 : 

REM SU=SOORT MODULE 
7290REM SU=0 normaal zoeken 
7300PRINT " Typ toets voor vervolg" 
7310GOSUB 800 
7320GOTO 7370 

7330REM SU=1 Verwijderen SU=2 Muteren 
7340PRINT "Dit record bewerken (J/N)" 
7350GOSUB 850 

7360IF T$="J" OR T$="j" THEN SU=99 
7370RETURN 

7380REM record niet aanwezig 
7390PRINT Z$ " niet gevonden" 

7400PRINT "Typ toets voor vervolg" 
7410GOSUB 800 
7420RETURN 


duceren, om bepaalde adressen te 
kunnen verwijderen en het geheel 
te kunnen printen. Je kunt ook al¬ 
vast zelf beginnen om het program¬ 
ma te completeren. Ik wens je sterkte 


en veel programmeerplezier. 
Jan Bodzinga 


Pagesetter 

DeskTop Publishing voor de Amiga 

Het verbluffende Gold Disk Ine. produkt 
DTP met dot-mathx of laser printer 

* tekstverwerking 

* lay-out 

* graphicsmanipulatie 

* incl. 100 Clip Art illustraties 

* plaatjes volgens IFF-formaat 

* inlezen van teksten uit Scribble, Textcraft en andere 
populaire tekstpakketten 

* graphicsinvoer uit DeLuxe Paint en Aegis Images 

ƒ 450,- (ex. BTW) 

Postscript module voor 
Apple LaserWriter en 
QMS 800PS ƒ 150,- 


De Micro-Drukker 


Roelof Hartstraat 27 

Amsterdam 

020-644659 


(ex. BTW) 


De 

Micro-Drukker® 

Textshop 

Nu DeskTop Publishing service in 
4 filialen: 

Amsterdam 

Roelof Hartstraat 27, 020-644659 

Amersfoort 

Koestraat 14, 033-17054 

Arnhem 

Nieuwstad 38, 085-455941 

’s-Hertogenbosch 

Orthenstraat 276, 073-132378 

Ruime sortering DTP-software. 

Ook Ventura uit voorraad leverbaar. 

Vraag een kortingsbon aan bij één 
van bovenstaande adressen. 
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De cursus machinetaal voorziet in een grote behoefte onder onze lezers. Niet alleen 
zijn we heel simpel begonnen, ook is het geheel voor de minder ervaren (machine- 
taal)-programmeur nog allemaal best te begrijpen. Tjipke van der Land doet z’n 
uiterste best om dat zo te houden, juist nu het allemaal wat ingewikkelder wordt. 

Cursus Machinetaal 


Deel 6: Instructieset 


N a alle droge stof die we gehad hebben is het tijd om te beginnen met de 
instructie set voor de 6502 en aanverwante micro-processoren. De be¬ 
doeling is elke instructie afzonderlijk vast te pakken en vervolgens te 
ontleden met alle zaken die daar verder bij komen kijken. Er bestaan een 
hele serie instructies voor de Commodore processor. 


De eerste instructie die we gaan leren 
is de instructie LDA wat betekent 
LAAD ACCU. LDA is een Mnemonic 
code, en wat dat precies betekend 
zien we straks. Het laden van de 
accu, de accumulator of register A, 
kan op verschillende manieren wor¬ 
den gedaan. Je kunt bijvoorbeeld 
de accu direct laden met een getal, 
een constante, maar je kunt de accu 
ook laden met een getal wat hij nog 
ergens vanuit het computergeheugen 
moet ophalen. Op z’n jan boerefluit¬ 
jes uit gelegd komt het ongeveer hier 
op neer: Op het moment dat je wat 
wilt weten uit een boek, kun je op ver¬ 
schillende manieren aan die infor¬ 
matie komen, je kunt dat boek je 
rechtstreeks laten aangeven , of je 
laten vertellen waar je het boek kunt 
vinden. Deze twee manieren wor¬ 
den in machinetaal immediate en 
absolute genoemd. 

Immediate, engels voor onmiddellijk, 
is rechtstreeks een getal of waarde in 
de accu stoppen. Deze instructie 
neemt twee bytes in beslag, 1 byte 
voor de instructiecode (LDA) en 1 
byte voor de operand (het getal). 
Als je hierover meer wilt weten, moet 
je de vorige les nog maar eens 
nalezen. 

Op de absolute manier een getal bin¬ 
nen lezen betekent dat de accu ver¬ 
teld wordt waar hij z’n getal kan 
ophalen. Voor dit halen heeft de accu 
een (computer) geheugenadres 
nodig, en we weten inmiddels alle¬ 
maal dat het adres 16 bits breed is, 
dus twee bytes. 

Wat iedereen daarbij op z’n klom¬ 
pen kan aanvoelen is, dat deze in¬ 


structie in totaal 3 bytes gebruikt. 
Pakken we de instructieset van de 
65xx erbij, dan zien we achter de in¬ 
structie LDA een hele rij van instruc¬ 
tie methoden. Deze methoden zul¬ 
len we niet allemaal in één keer be¬ 
handelen, omdat we eerst wat meer 
eenvoudige instructies onder de 
knie moeten hebben om de andere 
adresseermethoden te kunnen begrij¬ 
pen. Dat houdt echter niet in dat we 
het deze keer bij twee adres¬ 
seermethoden laten. 

Adresseren 

We gaan in totaal drie adresseer-me- 
thodes behandelen, namelijk de hier¬ 
boven genoemde twee methodes, 
met daar aan toegevoegd de zero 
page adresseer-methode. Om een 
machinetaal programma zo snel mo¬ 
gelijk te kunnen laten runnen, moetje 
het totaal programma uit zo weinig 
mogelijk instructies (en vooral 
weinig bytes) laten bestaan, omdat 
elke instructie cyclus een klokpuls 
in beslag neemt. 

In het voorbeeld van het klokdiagram 
kun je zien dat voor elke byte die ver¬ 


plaatst wordt een klokpuls wordt ge¬ 
bruikt. Wat voor iedereen duidelijk zal 
zijn is, dat zodra er minder instructies 
zijn, ook minder tijd nodig is om het 
programma te doorlopen. 

Als voorbeeld stel ik dat je aan het 
hardlopen bent op een route, met als 
bedoeling ook op z’n snelst, als eer¬ 
ste dus, over de finish te gaan. Op het 
moment datje op de route een obsta¬ 
kel tegenkomt, probeer je normaal 
gesproken met zo weinig mogelijk 
tijdverlies dit obstakel te omzeilen. 
Deze mogelijkheden zijn af en toe 
ook toe te passen in machinetaal, al¬ 
leen niet door over een steen te sprin¬ 
gen, maar door bijvoorbeeld 1 byte 
van een instructie weg te werken 
waardoor je bijvoorbeeld van 3 naar 2 
bytes in een instructie gaat. 

Wat je op zo’n moment gewonnen 
hebt is niet meer dan 1 microsecon- 
de, maar je hebt wel op dat moment 
30% snelheidswinst. 

Zero Page 

Waar dit hele verhaal met hardlopers 
en obstakels naar toe leidt is uiter¬ 
aard de Zero page instructieme- 


KLÖK 

FCTCH 

EXECUTE 


byv LDA * 34B2 


byv LDA # 4c 


Klokdiagram 
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thode. Deze instructie-methode is 
speciaal bedoeld voor de zogenaam¬ 
de nul pagina. Een computergeheu¬ 
gen kunnen we bij de 65XX name¬ 
lijk opdelen in pagina’s. Wat ik me op 
dit moment kan voorstellen is dat je 
niet helemaal het verband ziet tussen 
een pagina en een geheugen! 

Stel dat je nog een boek hebt waar in 
totaal 64000 bytes (letters) in zitten, 
die natuurlijk niet allemaal op 1 blad¬ 
zijde kunnen staan. In de eerste 
plaats is dat niet uitvoerbaar, en in de 
tweede plaats wordt je erg moe van 
het lopen langs de regels op de blad¬ 
zij om alle 64000 letters te kunnen 
lezen. De oplossing was om de hoe¬ 
veelheid letters op te delen in meer¬ 
dere bladzijden. In ons boek, de com¬ 
puter, stoppen we nu op elke blad¬ 
zijde precies 256 bytes. Bij deze 
256 wordt ook de 0 meegeteld. Dit 
wordt dus in principe van 0 tot 255. 

Deze manier wordt in de computer¬ 
techniek altijd toegepast, omdat het 
binaire stelsel ook rekent met 0 als 
een van z’n twee mogelijke waarden. 
(0 en 1). Deze consequentie voeren 
we dus maar even door in ons eigen 
machinetaalstelsel. 

Na een kleine rekensom komen we 
snel tot de ontdekking dat ons boek 
uit precies 255 bladzijden moet be¬ 
staan. 

Je zult inmiddels wel vermoeden dat 
dit voorbeeld een beetje overeen¬ 
komt met het echte computer geheu¬ 
gen, en dat is ook de bedoeling. Als 
we een beetje doorrekenen bijvoor¬ 
beeld door 255 decimaal om te reke¬ 
nen naar hexadicimaal dan zien we 
dat 255 = $ FF. Tot onze vreug¬ 
devolle ontdekking zien we dus dat 
dit precies een byte is, want $FF komt 
overeen met 8 bits vol enen (%1111 
1111). Dit was juist de waarde die we 
wilden besparen op een instructie. 

Wat we hieruit kunnen opmaken is 
dat je met 1 byte een hele pagina in 
het geheugen kunt adresseren. Als 
we dit wat duidelijker stellen, dan 
komt het er op neer, dat voor ieder 
adres (16 bits) twee bytes nodig 
zijn, waarvan het eerste byte (high 
byte) het paginanummer in het ge¬ 
heugen aangeeft, terwijl het tweede 
byte (low byte) de plaats van het 
adres binnen de pagina aan duidt. 
Daarop door bordurend, zien we, 
dat er in feite niets nodig is, om 
pagina NUL, de Zero Page van een 
adres te voorzien. We kunnen daar 
de high-byte gewoon laten verval¬ 
len, waardoor alle instructies, die 
naar de Zero Page wijzen een byte 
kleiner zijn, wat de nodige tijdwinst 
oplevert! 


Instructieset 6500 serie 

200 

$C8 

INY 

Implied 





076 

$4C 

JMP 

Absolute 

Machine 

Mnemonic Addressing 

108 

$6C 

JMP 

(Indirect) 

Opcodes 

Opcodes 

Mode 









032 

$20 

JSR 

Absolute 

Dec 

Hex 



173 

$AD 

LDA 

Absolute 

109 

$6D 

ADC 

Absolute 

189 

$BD 

LDA 

Absolute,X 

125 

$7D 

ADC 

Absolute,X 

185 

$B9 

LDA 

Absolute,Y 

121 

$79 

ADC 

Absolute,Y 

169 

$A9 

LDA 

Immediate 

105 

$69 

ADC 

Immediate 

161 

$A1 

LDA 

(Indirect.X) 

097 

$61 

ADC 

(Indirect,X) 

177 

$B1 

LDA 

(Indirect),Y 

113 

$71 

ADC 

(Indirect),Y 

165 

$A5 

LDA 

Zero Page 

101 

$65 

ADC 

Zero Page 

181 

$B5 

LDA 

Zero Page.X 

117 

$75 

ADC 

Zero Page,X 

174 

$AE 

LDX 

Absolute 

045 

$2D 

AND 

Absolute 

190 

$BE 

LDX 

Absolute.Y 

061 

$3D 

AND 

Absolute,X 

162 

$A2 

LDX 

Immediate 

057 

$39 

AND 

Absolute,Y 

166 

$A6 

LDX 

Zero Page 

041 

$29 

AND 

Immediate 

182 

$B6 

LDX 

Zero Page,Y 

033 

$21 

AND 

(Indirect,X) 

172 

$AC 

LDY 

Absolute 

049 

$31 

AND 

(Indirect),Y 

188 

$BC 

LDY 

Absolute,X 

037 

$25 

AND 

Zero Page 

160 

$A0 

LDY 

Immediate 

053 

$35 

AND 

Zero Page.X 

164 

$A4 

LDY 

Zero Page 

014 

$0E 

ASL 

Absolute 

180 

$B4 

LDY 

Zero Page.X 

030 

$1E 

ASL 

Absolute,X 

078 

$4E 

LSR 

Absolute 

010 

$0A 

ASL 

Accumulator 

094 

$5E 

LSR 

Absolute,X 

006 

$06 

ASL 

Zero Page 

074 

$4A 

LSR 

Accumulator 

022 

$16 

ASL 

Zero Page,X 

070 

$46 

LSR 

Zero Page 

144 

$90 

BCC 

Relative 

086 

$56 

LSR 

Zero Page.X 

176 

$B0 

BCS 

Relative 

234 

$EA 

NOP 

Implied 

240 

$F0 

BEQ 

Relative 

013 

$0D 

ORA 

Absolute 

044 

$2C 

BIT 

Absolute 

029 

$1D 

ORA 

Absolute,X 

036 

$24 

BIT 

Zero Page 

025 

$19 

ORA 

Absolute.Y 

048 

$30 

BMI 

Relative 

009 

$09 

ORA 

Immediate 

208 

$D0 

BNE 

Relative 

001 

$01 

ORA 

(Indirect.X) 

016 

$10 

BPL 

Relative 

017 

$11 

ORA 

(lndirect),Y 

000 

$00 

BRK 

Implied 

005 

$05 

ORA 

Zero Page 

080 

$50 

BVC 

Relative 

021 

$15 

ORA 

Zero Page.X 

112 

$70 

BVS 

Relative 

072 

$48 

PHA 

Implied 

024 

$18 

CLC 

Implied 

008 

$08 

PHP 

Implied 

216 

$D8 

CLD 

Implied 

104 

$68 

PLA 

Implied 

088 

$58 

CLI 

Implied 

040 

$28 

PLP 

Implied 

184 

$B8 

CLV 

Implied 

046 

$2E 

ROL 

Absolute 

205 

$CD 

CMP 

Absolute 

062 

$3E 

ROL 

Absolute,X 

221 

$DD 

CMP 

Absolute,X 

042 

$2A 

ROL 

Accumulator 

217 

$D9 

CMP 

Absolute,Y 

038 

$26 

ROL 

Zero Page 

201 

$C9 

CMP 

Immediate 

054 

$36 

ROL 

Zero Page.X 

193 

$C1 

CMP 

(Indirect,X) 

110 

$6E 

ROR 

Absolute 

209 

$D1 

CMP 

(Indirect).Y 

126 

$7E 

ROR 

Absolute,X 

197 

$C5 

CMP 

Zero Page 

106 

$6A 

ROR 

Accumulator 

213 

$D5 

CMP 

Zero Page.X 

102 

$66 

ROR 

Zero Page 

236 

$EC 

CPX 

Absolute 

118 

$76 

ROR 

Zero Page.X 

224 

$E0 

CPX 

Immediate 

064 

$40 

RTI 

Implied 

228 

$E4 

CPX 

Zero Page 

096 

$60 

RTS 

Implied 

204 

$CC 

CPY 

Absolute 

237 

$ED 

SBC 

Absolute 

192 

$ce 

CPY 

Immediate 

253 

$FD 

SBC 

Absolute,X 

196 

$C4 

CPY 

Zero Page 

249 

$F9 

SBC 

Absolute.Y 

206 

$CE 

DEC 

Absolute 

233 

$E9 

SBC 

Immediate 

222 

$DE 

DEC 

Absolute,X 

225 

$E1 

SBC 

(Indirect.X) 

198 

$C6 

DEC 

Zero Page 

241 

$F1 

SBC 

(Indirect),Y 

214 

$D6 

DEC 

Zero Page.X 

229 

$E5 

SBC 

Zero Page 

202 

$CA 

DEX 

Implied 

245 

$F5 

SBC 

Zero Page.X 

136 

$88 

DEY 

Implied 

056 

$38 

SEC 

Implied 

077 

$4D 

EOR 

Absolute 

248 

$F8 

SED 

Implied 

093 

$5D 

EOR 

Absolute,X 

120 

$78 

SEI 

Implied 

089 

$59 

EOR 

Absolute,Y 

141 

$8D 

STA 

Absolute 

073 

$49 

EOR 

Immediate 

157 

$9D 

STA 

Absolute,X 

065 

$41 

EOR 

(Indirect.X) 

153 

$99 

STA 

Absolute.Y 

081 

$51 

EOR 

(Indirect),Y 

129 

$81 

STA 

(Indirect.X) 

069 

$45 

EOR 

Zero Page 

145 

$91 

STA 

(Indirect),Y 

085 

$55 

EOR 

Zero Page,X 

133 

$85 

STA 

Zero Page 

238 

$EE 

INC 

Absolute 

149 

$95 

STA 

Zero Page.X 

254 

$FE 

INC 

Absolute,X 

142 

$8E 

STX 

Absolute 

230 

$E6 

INC 

Zero Page 

134 

$86 

STX 

Zero Page 

246 

$F6 

INC 

Zero Page 

150 

$96 

STX 

Zero Page.Y 

232 

$E8 

INX 

Implied 

140 

$8C 

STY 

Absolute 


Commodore Info 4187 


34 




Mnemonics 


Machine Mnemonic Addressing 

Opcodes Opcodes Mode 


Dec 

Hex 



132 

$84 

STY 

Zero Page 

148 

$94 

STY 

Zero Page,X 

170 

$AA 

TAX 

Implied 

168 

$A8 

TAY 

Implied 

186 

$BA 

TSX 

Implied 

138 

$8A 

TXA 

Implied 

154 

$9A 

TXS 

Implied 

152 

$98 

TYA 

Implied 


microprocessor dat het getal wat ach¬ 
ter de instructie staat een adres moet 
zijn waarvan hij ook weet dat dit totaal 
2 bytes moeten zijn. (16 bits dus 2 
bytes). Het enige wat enigszins van 
onze logische gedachtengang afwijkt 
is dat de processor z’n adres achter¬ 
ste voren ophaalt. Waarom hij dat 
doet zal straks wel duidelijk worden. 
Dus de processor haalt eerst zijn 
zogenaamde lowbyte op en daarna 
het highbyte. De totaal instructie ziet 
er dan als volgt uit: 


Het zal nu duidelijk zijn wat het ver¬ 
schil is tussen de verschillende 
adresseer methoden. Een aantal 
lessen terug hebben we verteld dat 
we het hexadecimale stelsel gingen 
toepassen omdat dit leesbaarder zou 
zijn dan binair. Dit kunnen we ook 
nog een keer doorvoeren op hexa- 
decimaal niveau als we over instruc¬ 
ties spreken, want de de opcode’s 
A9, AD en A5 hebben alle drie betrek¬ 
king op het laden van de accu. Om dit 
beter leesbaar te maken is de bena¬ 
ming mnemonic in het leven geroe¬ 
pen, zoals eerder genoemd,. Met dit 
mnemonic krijgen we in verloop van 
de cursus nog veel te maken, dus zul¬ 
len we dit even grondig doornemen. 
Mnemonics komen we veel tegen als 
we gaan werken met de zogenaamde 
Assembler programma’s. 

Assembler 

Een Assembler is een stukje hulpge- 
reedschap, meestal software, wat we 
gebruiken om sneller in machinetaal 
te kunnen schrijven, want als je een 
stukje machinetaal moet schrijven 
door elke keer een reeks hexadeci¬ 
male getallen achter elkaar te zetten, 
dan zit de kans er in dat je veel fouten 
maakt en bovendien gaat het heel erg 
langzaam (het programmeren wel te 
verstaan). 

De mnemonic-code voor het laden 
van de accu is, zoals al eerder ge¬ 
noemd, LDA. Het LDA is dan uiter¬ 
aard onder te verdelen in de Imme- 
diate en de Absolute methode’s. 
We zullen zo dadelijk een overzich¬ 
telijk tabelletje maken, zodat je het 
zoeven geleerde gedeelte kunt over¬ 
zien. Hoe het programmeren in as¬ 
sembler gaat, behandelen we nu nog 
niet want het is veel zinniger eerst 
te begrijpen hoe het programmeren 
op hexadecimaal niveau gaat. Waar 
we gelijk wel mee te maken krijgen is 
uiteraard de mnemonic code, omdat 
deze in de instructie boekjes wor¬ 
den gebruikt. Als voorbeeld zullen we 
een getal $ 23 nemen dat staat op 
adres $ 005C, die we volgens de drie 
behandelde adresseer manieren zul¬ 
len binnenhalen: 

MNEMONIC, IM M EDI ATE-waarde 
ABSOLUTE-adres. ZERO PAGE-adres 

LDA A9 23 AD 5C 00 A5 5C 

Bij immediate zien we dat het juiste 
getal gelijk wordt binnen gelezen in 
de accu, en bij absolute zien we dat 


Zoals eerder verteld staat bij nage¬ 
noeg iedere instructie een aantal in- 
structiemethoden. Voor elke in- 
structiemethode is een andere op- 
code. Een opcode is het hexadeci¬ 
male getal waar de computer aan kan 
zien met wat voor type instructie hij te 
maken heeft. Zo’n opcode is altijd 
één byte lang, en elke andere instruc¬ 
tie met de daaraan verbonden in- 
structie-methode heeft een andere 
code. Laten we nog maar eens 
even de instructie LDA pakken. Als 
we volgens de immediate methode 
wat willen uitvoeren dan is de opcode 
$ A9. Willen met deze zelfde instruc¬ 
tie op de absolute methode iets uit¬ 
voeren dan is de opcode $ AD, in 
Zero page Methode is dit $ A5. 

Opcodes 

Waar het nu om gaat is dat de pro¬ 
cessor aan de opcode precies kan 
zien wat hij moet gaan doen. 

Als voorbeeld zullen we een getal $ 
23 nemen wat op geheugenplaats $ 
345C staat. Als eerste gaan we dit 
getal rechtstreeks in de accu, register 
A, laden, dus een immediate instruc¬ 
tie. Deze ziet er dan als volgt uit: 

$ A9 23LDA $23 

Nu gaan we beredeneren hoe de 
microprocessor deze instructie ver¬ 
werkt. Bij het ophalen van de eerste 
waarde , wat dus A9 is, gaat de 
microprocessor decoderen (ontle¬ 
den) welke instructie methode dit is. 
Door z’n eigen aanwezige micropro- 
gramma (zie deel 3 van deze cursus) 
weet hij zelf dat hij de accu moet 
laden volgens de immediate me¬ 
thode, dus weet hij dat de waarde die 
hij moet laden gelijk achter de instruc¬ 
tie staat, wat in dit geval dus $ 23 is. 

De volgende stap is de microproces¬ 
sor te volgen bij de verwerking vol¬ 
gens de absolute methode. Hier 
dus weer hetzelfde verhaal wat I 
betreft het ophalen van het eerste 
getal, waar hij dus gaat kijken welke 
soort instructie het is. Hier weet de | 


$ AD 5C 34LDA $345C 

Dus aan de waarde AD weet de pro¬ 
cessor dat hij een adres moet hallen. 
Zodra hij het adres binnen heeft 
adresseert hij met deze waarde het 
geheugen en haalt het getal op wat 
op het aangegeven adres staat. 

Om nu er nog even op terug te komen 
waarom de processor zijn adres om¬ 
gekeerd binnenhaalt, is goed uit te 
leggen met de zero page instructie 
methode. Bij deze methode is na¬ 
melijk van hetzelfde sprake als bij de 
absolute methode alleen hier hoeft de 
processor niet het high byte op te ha¬ 
len, want hij weet dat hij op de nul 
pagina zijn waarde moet gaan halen. 
Dus de enige waarde waar hij mee 
moet rekenen is het low byte. 

Stel dat de waarde 23 op geheugen 
plaats $ 00 86 staat, dan ziet de in¬ 
structie er als volgt uit: 

$ A5 86LDA $86 

Je kunt dan ook ogenblikkelijk zien 
waarom het zinnig is om eerst het low 
byte te halen en daarna het high byte, 
want als we nu op onze logische 
manier het adres gingen ophalen, 
dan zouden we in de moeilijkheden 
raken, want dan zag de totaal instruc¬ 
tie er zo uit : A5 00 86, waardoor 
het nut van de zero page adressing te 
niet wordt gedaan. Dus met de totaal 
instructie A5 86 weet de micropro¬ 
cessor dat hij een getal moet halen 
van adres $ 0086, want door de op¬ 
code A5 weet de processor dat het de 
nul pagina is, dus het high byte is dan 
$ 00 en hoeft daarom niet te wor¬ 
den vermeld. 



HIGH LOW 

voorbeeld van pagina's in geheugen 
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het gehele adres wordt binnen ge¬ 
haald om de lokatie aan te wijzen 
waar het getal te lezen valt. Bij de 
Zero page methode zien we precies 
hetzelfde als bij absolute, alleen 
wordt hier in dit geval een byte aan 
tijd en hoeveelheid bespaard. In dit 
geval kan je wel zero-page adressing 
toepassen in de plaats van absolute, 
maar zodra er sprake is van adressen 
hoger dan de nul pagina dan kan dit 
niet meer. 

Poke & peek 

Nu je dit allemaal een beetje duidelijk 
is zal je zeggen OK dit is allemaal 
prachtig, maar hoe kan ik dat in de 
Computer stoppen. Aangezien dit wel 
het belangrijkste is, zullen we daar in 
dit deel ook nog wat aan doen, wel te 
verstaan dat je pas echt kan zien wat 
je doet in de volgende les. Even ge¬ 
duld hebben dus nog. Wat we nu wel 
gaan behandelen is hoe je dit echt 
laat werken in de computer. Voor¬ 
dat we dit gaan aansnijden gaan we 
eerst praten over poken en peeken, 
omdat dat op dit moment nog de 
enige manier is om op machinetaal 
niveau met de computer de commu¬ 
niceren. Straks met de machinetaal- 
monitor en de assembler kunnen 
we rechtstreeks zien wat we doen, 
maar nu nog niet. Met poken kunnen 
we rechtstreeks vanuit Basic waar¬ 
des in het geheugen plaatsen. Deze 
waardes kunnen dus bijvoorbeeld op- 
code’s en operands zijn, maar ook 
data ten behoeve van het program¬ 
ma. Dit vereist misschien enige uitleg, 
omdat we er nog niet over hebben 
gesproken. We hebben het inmiddels 
wel gehad over het ophalen van 
getallen die geladen moesten worden 
in de accu, maar nog niet over het 
programma zelf, dat uiteraard ook er¬ 
gens in het geheugen draait. We 
onderscheiden in het geheugen dus 
een plek waar het programma loopt 
en een plek waar we data heen 
schrijven en weer ophalen. Deze 
plekken kunnen best een eind uit el¬ 
kaar liggen. 

Wat we straks gaan doen is het pro¬ 
gramma poken op een plek in het ge¬ 
heugen, en ergens anders in het ge¬ 
heugen poken we data. Het is op dit 
moment jammer, dat we straks wel 
iets kunnen maken wat loopt, maar 
niet echt kunnen zien dat het werkt. 
Maar ook dat komt de volgende keer. 

Poken wil zeggen: langs van te voren 
afgesproken regels in decimale vorm 
een adres aanwijzen waar een getal 
of waarde moet worden geplaatst. 
Stel dat we het getal $ 23 op geheu- 
genplaats $ 0600 willen schrijven, 


dan doen we dit door eerst deze ge¬ 
tallen om te zetten in decimale getal¬ 
len, dus $ 23 word 35 en $ 0600 
wordt 1536. De instructie voor Basic 
wordt ’poke adres,waarde’ dus poke 
1536,35 . Op deze manier kun je dus 
een heel programma in het geheugen 
poken. Je ziet dat nog al veel in de lis- 
tingrubriek, waar hele stukken machi¬ 
netaal als DATA in de Basicprogram- 
ma’s voorkomen. Door gebruik te ma¬ 
ken van een loop en een read-op- 
dracht worden ai die data-getallen in 
het RAM-geheugen weggezet. Dit 
doen wij echter alleen in deze en de 
volgende uitgave, omdat anders heel 
snel de lol eraf is om in machinetaal 
te programmeren. Maar voor een 
goed begrip moetje het toch even ge¬ 
daan hebben op deze manier. 

Break 

Voor we ons programma gaan poken 
is er eerst nog een instructie die we 
moeten weten, namelijk de BREAK 
instructie die we aan het eind van een 
programma moeten plaatsen, omdat 
de processor anders stomweg de in¬ 
structies gaat uitvoeren die na het 
programma staan, wat dus meestal 
willekeurige waarden kunnen zijn. 
Het gevolg is, als we een programma 
laten lopen tot aan het eind, dat hij 
vast loopt en niet terug in Basic komt. 
Dit vastlopen kan komen omdat hij 
misschien opdrachten moet uitvoeren 
die niet erg logisch zijn, of hij blijft 
eeuwig in een loop staan draaien. De 
enige remedie is dan de computer uit 
en aan zetten met als gevolg dat 
het moeizaam ingevoerde program¬ 
ma ook helemaal opgelost is. Om 
dit te voorkomen zetten we achter elk 
programma de zogenaamde BREAK- 
instructie wat in hexadecimaal $ 00 is. 
Deze BREAK instructie noemen ze 
de IMPLIED instructie methode, waar 
we later op terug komen. 

Met deze reddende instructie komt de 
computer weer terug in Basic, en kun 
je weer gewoon doorwerken. Met 
deze kennis in ons achterhoofd gaan 
we even een klein programmaatje 
maken en in het geheugen poken, 
puur om toch onze reeds verworven 
kennis eens in de computer te stop¬ 
pen. Stel dat we een getal $ 23 heb¬ 
ben op geheugenplaats $3400, en we 
willen dit getal laden in de accu. We 
laten het programma starten op $ 
0600. In principe begin je altijd door 
een flowchart te maken. Dit is een 
globale schets hoe het programma in 
grote lijnen zal gaan werken. Bij het 
voorbeeld is dat uiteraard heel sim¬ 
pel, omdat we hier nog maar één in¬ 
structie toepassen. We werken als 
volgt: 


Gegevens: Een getal $ 23 staat op 
geheugenplek $ 3400; 

Het getal moet binnen gehaald wor¬ 
den in de accu; 

In dit geval moeten we eerst zelf het 
getal $ 23 op de juiste plaats zetten, 
omdat we geen programma hebben 
lopen wat dat er voor ons neerzet. Bij¬ 
voorbeeld door het uit voeren van be¬ 
rekeningen. 

Dus type in : poke 13312,35. Als je dit 
gedaan hebt dan staat er op geheu- 
gen-lokatie $ 3400 een waarde van $ 
23. Nu moeten we dus nog het hele 
programma poken, wat het getal in de 
accu laadt. In mnemonic ziet dit er zo 
uit. 

Mnemonic Hexadecimaal 

LDA $ 3400 (absolute) AD 00 34 
BRK 00 

Je ziet dat ons programma nu uit to¬ 
taal 4 bytes bestaat, wat nog te poken 
is, zonder last te krijgen van de wel 
bekende zweetdruppels. We hadden 
bepaald dat het programma zou star¬ 
ten op adres $ 0600, en moeten we 
het volgende weer intypen. 
Opcode/operand POKE ADRE S. 
O-PCODE/QPERAND 

AD OP $ 0600 POKE 1536,173 
00 OP $ 0601 POKE 1537,0 
34 OP $ 0602 POKE 1538,52 
00 OP $ 0603 POKE 1539,0 

Voordat je dit overneemt is het een 
goede oefening om het eerst zelf pro¬ 
beren te berekenen, wat je inmid¬ 
dels wel moet kunnen. Nadat dit met 
succes is gedaan moeten we het pro¬ 
gramma alleen nog even laten run¬ 
nen, zoals dat heet. Het runnen van 
een machinetaal programma in Basic 
doen we door middel van het SYS 
commando. Dit SYS commando ver¬ 
wacht evenwel ook een decimaal 
nummer, wat inmiddels wel bij ons 
bekend is namelijk 1536, het star- 
tadres van ons programma. Dus je 
kunt het programma starten door in te 
tikken SYS (1536). Als je dat hebt in¬ 
getypt gaat hij de instructies vanaf $ 
0600 uitvoeren. 

Waarschijnlijk denk je "hij doet niks", 
maar dat komt omdat het zo snel 
gegaan is. Komt hij terug in Basic, 
dan heeft hij het toch goed gedaan, je 
kunt alleen niet zien hoe. Maar dat 
komt allemaal de volgende keer! 

We gaan dan door met de volgende 
instructie, waarin o.a. staat hoe je 
door middel van een peek-instructie 
wél kunt zien wat je gedaan hebt. Al¬ 
vast sterkte en tot de volgende keer. 

Tjipke van de Land • 
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Met o.a. Blokmonitor - Mastermind - snake - 

Adresbak 128 - lijn 128 - lichtkrant C-16 


Listingtelefoon 

Voor vragen over de in Commodore Info verschenen 
listings blijft de listingtelefoon beschikbaar. Elke 
maandag zitten we van 17.00 tot 21.00 uur paraat 
voor vragen en opmerkingen op nummer 02155- 
251 62. Denk er wel aan dat het niet mogelijk is om 
op andere tijden informatie over listings te krijgen, 
niet op bovenstaand nummer en ook niet bij de 
redactie. 

Rob Goudriaan. 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei zijn en als u 
een beetje normaal mens bent dan maakt u daarin beslist een 
aantal fouten. Nu is niets moeilijker om de fouten uit je eigen 
werk te halen. Al geruime tijd geleden heeft Jan Bodzinga 
hiervoor een zgn. Checksum-programma geschreven. Om de 
vele nieuwe lezers van Commodore-lnfo te helpen volgt hieron¬ 
der nog een keer een volledige uitlegh over de werking van dit 
programma, waarmee het, hoe vreemd dat misschien ook lijkt, 
echt mogelijk is om met behulp van dit programma de fouten in 
elke door ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

O U tikt de listing heel zorgvuldig over en SAVEt hem voordat u 
het programma RUNt op een diskette of een cassette. 


37 

Etiketten 128 

43 

38 

Adresbak 128 

44 

39 

Lijn 128 

50 

41 

Lichtkrant C-16 

52 


Inhoud van dit listingdeel 

Syntax Checksum 37 Etikette 
Blokmonitor 38 Adresbi 
Mastermind 39 Lijn 128 

Snake 41 Lichtkn 

Analoge klok C-16 42 


0U tikt het RUN commando in. Mocht het programma de 
boodschap 'Fout in dataregels!’ geven dan heeft u een fout 
bij het overtikken gemaakt. Herstel de fout en SAVE de 
verbeterde versie. Mocht het programma met de boodschap 
'data is weggezet checksum testten met sys ....’ komen dan 
is tot dusver alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic geschreven. 
Als u een programma heeft overgetikt SAVE het eerst, mocht er 
iets mis gaan dan hoeft niet de gehele listing opnieuw te gaan 
intikken. Als u nu een programma op fouten wilt gaan controle¬ 
ren dan kunt u dat in het geheugen laden (wel eerst het 
checksumprogramma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 49152 (C-64) of 
sys 1536 (C-16 en Plus/4) in. 

Als alles goed is gegaan loopt er nu een rij regelnummers over 
het scherm met getallen erachter. Dezelfde lijst staat ook achter 
elk door ons geplaatste programma. Wijkt nu een nummer 
achter een regelnummer af van het nummer dat in het blad staat 
dan heeft u in die regel iets anders ingetikt dan er in het blad 
stond. U kunt de stroom getallen d.m.v. de RUN/STOP toets 
pauzeren en weer vervolgen met de F1 of F7 toets. Het is 
uitermate belangrijk dat u goed met dit programma overweg 
kunt en mocht U het niet goed werkend krijgen bel dan gerust 
even met onze listingservice telefoonlijn. 


rem ***t**************t************ 

*» 

rem basic leader "SYNTAX.CHECKSUM" 
rem na de commando’* ’run’ en ’new’ 
rem bliï-ft dit programma in het ge — 
rem heugen, laad het te testen pro- 
rem gramma en tik daarna sys 49152. 
rem tttttttttttttt ***************** 
*1 

i*49152 irem beginadres 

reada: ifa<0then40:rem data ingeleze 

n 

pokei,aii*i + ls b»b + a* goto20 
i-f b< >16844thenpr int " C CLR-HGME 3-F out 
in dataregels! ":b=0:end 
poke49184, 148* poke49185, 192 
i *49300 

read a: i-fa<0then80 
pokei , a:b = a + b ï i = i + lsgoto60 
i-f b<>20068thenpr int " C CLR-HOME 3-f out 
in dataregels! (vanaf regel 240)"s 
b = 0 :end 

print"data is weggezet" 
pr infchecksum testen met sys49152" 
data 165,43,166,44,133,163,134,164, 
169, 147 

data 32,210,255,160,0,240,3,32,73, 
192 

data 32,73,192,209,1,96,32,225,255, 
208 ’ 
data 3,76,116,164,32,81,192,32,73,1 
92 


140 data 240,12,201,32,240,247,24,101,1 
67,133 

150 data 167,76,37,192,166,167,169,0,13 
2, 168 

160 data 32,205,189,169,13,32,210,255,1 
64, 168 

170 data 76,17,192,200,208,2,230,164,17 
7, 163 

1B0 data 96,162,0,1B9,123,192,240,6,32, 
210 

190 data 255,232,208,245,32,73,192,170, 
32,73 

200 data 192,132,168,32,205,189,162,3,1 
69,32 

210 data 32,210,255,202,208,250,169,0,1 
33,167 

220 data 164,168,96,B2,69,71,69,76,32,0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

*** EINDE LISTINS *** 

syntaxchecksum 1 i sttestprogramma 

regel 1 249 

regel 2 84 

regel 3 125 

regel 4 2 

regel 5 246 


regel 

6 

152 

regel 

7 

249 

regel 

10 

157 

regel 

20 

64 

regel 

30 

38 

regel 

40 

57 

regel 

50 

14 

regel 

55 

251 

regel 

60 

192 

regel 

70 

42 

regel 

80 

244 

regel 

90 

245 

regel 

95 

237 

regel 

100 

183 

regel 

110 

158 

regel 

120 

232 

regel 

130 

183 

regel 

140 

96 

regel 

150 

96 

regel 

160 

127 

regel 

170 

71 

regel 

180 

223 

regel 

190 

73 

regel 

200 

79 

regel 

210 

109 

regel 

220 

106 

regel 

230 

225 

regel 

240 

16 

regel 

250 

163 

regel 

260 

92 

regel 

270 

225 

ready. 
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Blokmonitor 


Voor de wat meer gevorderde programeurs schreef 
Marcel de Groot een programma dat je in saat stelt om 
elke willekeurige track en sector op de schijf te lezen, ja 
zelfs direkt hierop te wijzigen. Met de funktie toetsen kan 
men kiezen of men wil bladeren, een ander blok wil 
inlezen, gaan editten of wegschrijven. 




rem b1ok-monitor / cbm-64 & 1541 

rem door marcel de groot 

rem uit hillegom / 02520-16616 


I 




hx*="0123456789abcdef":dimhx*(255) 

,d*(255):zt = "[H0ME3[16xCRSR-D0WN3" 

:poke649,1 

ap* = "[26xSPACE3":v*=">druk[ SPACE 3 o 
p[SPACE3een[SPACE3 toets<":r*=chr*( 
13) 

w* = "[SHIFT CLR)"+sp*+"[2xSPACE3[CT 
RL 23B[CRSR-DOWN3tCRSR-LEFT3BCCRSR 
-DOWN][CRSR-LEFT3B[CRSR-DOWN3[CRSR 
-LEFT3B C CRSR-DOWN][CRSR-LEFT1B [ CRS 
R-DOWN 3 t CRSR-LEFT3B[CRSR-DOWN3[CRS 
R-LEFT3B C CRSR-DOWNJ[CRSR-LEFT]B[CR 
SR-D0WN1[CRSR-LEFT3BCCRSR-D0WN1CCR 
SR-LEFT3B [CRSR-DOWN 'i t CRSR-LEFT3B [C 
RSR-D0WN3[CRSR-LEFT3BCCRSR-DOWN3[C 
RSR-LEFT3B":n*=chr*(O) 
w$ = w*+ "[CRSR-DOWN3[CRSR-LEFT3B[CRS 
R-D0WN3[CRSR-LEFT3B[CRSR-DOWN3[CRS 
R-LEFT 3 B" + r* + "CCCCCCCCCCCCCCCCCCCC 
CCCCCCCC(COM E3CCCCCCCCCCC":f*=sp* 
+ r * 

forl=lto40:t*=t*+"C":next:w*=w#+"[ 
2xCRSR-D0WN3”+t*+chr*(8)+chr*C142) 

: poke53280,6 

fori=ltol6:forj=ltol6:hx*(a)=mid*( 
hx*,i,l)+mid$(hx$,j,1):a=a+l:next: 
next 

poke53281,6:q*=z*+"[2xCRSR-D0WN3[1 
3xCRSR-RIGHT 3-"+sp$+"[CRSR-DOWN 3 " + 
f*+f*+f*+sp* 

prlntw*z*"[CRSR-DOWN3 track?[SPACE3 
";:pokel98,O:g$="":gosub470:t=va1( 
g*):t*=g*:v=0 

print"[4xSPACE3 sector?[SPACE3";:g* 
= "" :gosub470:s = va1(g#):printr$"[CR 
SR-UP 3 "sp#:if t>35then80 
ift>30ands>16ort>24ands>17ort>17an 
ds>18ors>20ort=0then80 
printz$"[CRSR-DOWN3 track:[SPACE3[C 
TRL 93"t*"[CTRL 03[4xSPACE3sector: 
[SPACE3[CTRL 93"g$ 

gosub410:ifa#<>"00"thenprintzt"[4x 
CRSR-DOWN3"v*:pokel98,O:wait198, 1: 
gotoöO 

printq*z*"[4xCRSR-DOWN3[CTRL 93f1[ 
CTRL O3[SPACE3 = [SPACE3andere[SPACE 
3pagina"r*"[CTRL 93f3[CTRL 03[SPAC 
E3 = [SPACE3 ander[SPACE3blok[SPACE3i 
n1ezen" 

print"[CTRL 93f5[CTRL 03[SPACE3=[S 
PACE3edit[SPACE3b1ok"r$"[CTRL 93f7 




ES 


[CTRL O3[SPACE3 = [SPACE3b1 ok [SPACE3 
terugschrijven" 

pokel98,O:waitl98,i:g&ta#:ifa*="[F 
13"thenv = 16-v:pr I ntq*" ‘. HOME) " ; : gos 

ub430:gotol30 
lfa*="[F33"then80 
ifa$ = "[F5 3"then260 
ifa#<>"(F73"thenl30 

printq*z$"[4xCRSR-D0WN 3b1ok[SPACE3 
terugschrijventSPACE)(j/n)?" 
getal:ifa*="n"thenl30 
lfa$<>"j"then200 

printq#:openl,8,15,"i":gosub460:if 
a*<>"00"thenc losel:goto250 
open2,8,2,"#":prlnt#l,"b-p[SPACE32 
[SPACE3O":fori=0to255:printt2, left 
#(d$(i)+n*,l);:next 

print#l,"u2[SPACE32[SPACE30"; t; s : c 
Iose2:gosub460:print#l,"i":closel: 
if a$ = "00"thenl30 

printz#"[4xCRSR-DOWN3 opnieuw[SPACE 
3 proberen!SPACE)(j/n)?":goto200 
r=O:h=O:printq*z«"[4xCRSR-D0WN3bew 
eeg[SPACE3met[SPACE3cursor-toetsen 


print"[CRSR-D0WN3[CTRL 93 f i[CTRL O 

3[SPACE 3 = [SPACElandere[SPACE 3 pag1n 

a"r$"[CTRL 93f7[CTRL 03[SPACE]=[SP 

ACE3 stoppen":pokel98,O 

1=1028+int(r/8)*40+(rand7)*3+h:pok 

el,peekCI)orl28:wait198,1 

geta*:poke1,peek(1)and127:ifa$="[C 

RSR-DOWN)"andr<120thenr=r+8:goto28 

O 

ifa* = "[CRSR-UP 3"andr>7thenr=r-8:go 
to280 

ifa*="[CRSR-R1GHT3"and C(rand7)<7or 

h=0)thenh=l-h:r=r+l-h: goto280 

ifa*="[CRSR-LEFT3"and(Crand7)>Oorh 

=1)thenr=r-l+h:h=l-h:goto280 

i f a* = "[HOME3"thenr = 0:h = 0:goto280 

lfa*="[Fl)"thenv=16-v:printq*"[H0M 

E3"; : gosub430:goto260 

1fa* = "[F73"thenprIntq*:gotol30 

a=asc(a*)-48:ifa<0ora>22or(a>9anda 

<17)then280 

ifa>9thena=a-7 

J=r+8*v:d*(j)=chr*((asc(d*(j)+n*)a 
nd 15*16 Th )+a*16-r(l-h) ) : po kei , asc (a 
t) and63 

h=l-h:b*=d*(j):if(asc(b*+n*)and127 
)<32thenb»="." 

printleft*(z*,r/8+l)spc(31+(rand7) 
)b#:r=(r+l-h)and127:goto280 
openl,8,15,"i":open2,8,2,"#":gosub 
460::ifa* <>"00"thenclosel:c1ose2:r 
eturn 

print#1,"ul[SPACE]2[SPACE30"; t; s : f 
ori=0to25S:get#2,d$(l):next:gosubA 
60:closel:close2 

fori=vtov+15:printhx#<i*8)":[SPACE 
3";:forj=0to7:printhx$(asc(d*(i*8+ 
J)+n*>)"[SPACE]"; 

b#=d*(1*8+j):if(asc(b*+n*)and127)< 
32thenb*="." 

l#=l#+b#:next:print"B[SPACE3’"l$"* 
";:1*="":next:priht:return 
input#i,a*,b*,c*,d*:printz#"[2xCRS 
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R-DOUNidisk-status: [SPACE] [CTRL 9] 
"a*","b$","c*","d4r$"[ HOME]";:retu 
rn 

470 print"[CTRL 9]*[CTRL OHCRSR-LEFTJ 
";:walt198,i:geta*:a=asc(a*):ifa=l 
3and1 en( g* )=2thenreturn 

480 ifa=20and1 en(g$) >0thenpr int"[SPACE 
i[2xCRSR-LEFT]";:g$=left$(g$,len(g 
*)-i):goto470 

490 ifa>47anda<58andlen(g*)<2theng$=g* 
+a*:printa*; 

500 goto470 
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91 
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REGEL 460 

248 

REGEL 

200 

175 
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44 
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De vorige maand heeft er een listing van mastermind 
voor de c 16 in ons blad gestaan. Op veel verzoek nu 
een zelfde programma voor de c 64. Het programma 
heeft geen uitleg meer nodig, probeer de 
kleurcombinaties in zo min mogelijk beurten te raden. 
De moeilijkheidsgraad kan ingesteld worden. Maak het 
uzelf zeker in het begin niet te moeilijk. 

ÏO rem mastermind vl.17 

20 rem door jan pijnacker voor c’info 
30 rem zondag 29 juni 1986 

40 rem - begin programma - 

50 poke53280,O:poke5328i,O:printchr*( 
142)chr*C8):s=54272:pokes +24,15 
60 for t=Oto23 :pokes* t , O: next 
70 co*="CSHIFT CLR1[SxSPACE ][ CTRL 9Jt 
CTRL 51C31xSPACEJ[CTRL 0JC5xSPACEJ 


80 sc* = ccf + "C4xSPACE1[CTRL 9itCTRL 51 
[SPACEirCOM 31mastermindtSPACEldoo 
r[SPACE3 jan[SPACE3 pijnacker[CTRL 5 
3CSPACE3[CTRL 03C4xSPACE3" 

90 sc$=sc$+mid$<cc$,2,38) 

100 k1* = "[CTRL 33[CTRL 43[CTRL 53[CTRL 
63[CTRL 73[CTRL 8HC0M 33[C0M 63" 
110 gosub800:a*="12345678" 

120 be=l:gosub930:gosub440 

129 rem bepaal kleuren 

130 fora=0to3:b*(a>=mid*(a*,rnd(l)«8+l 
, 1) : if 1 1 =0anda00then890 

140 tt*=tt*+mid*(kl*,val(b*(a)),l)+b*( 
a) 

150 nexta 

160 print"[HOME][6xCRSR-D0UN3[4xCRSR-R 
IGHT3"; :ti*="000000" 

169 rem - hoofd programma - 

170 gosub740:forb=0to3:pokel98 f O 
180 getc*(b>:ifc*(b)=""thenl80 

190 i f c$ (b) = "«-"thenpr int: pr int" [CRSR-U 
P 3[4xCRSR-RIGHT3[4xSPACE3[4xCRSR-L 
EFT 3";:fori=0to3:c*(i)="":nexti:go 
tol70 

200 ifc$(b)<"i"orc*(b)>"8"thenl80 
210 print"[CTRL 93"mid*(k1 *,va 1(c*<b)) 
,l)c*(b);:nextb:print"[2xCRSR-RlGH 
T3[CTRL 03"; 

220 forf=0to3 

230 ifc*(f)=b*(f)thenprint"[COM 23z";: 

a(f)=l:bCf)=l:aa=aa+1 
240 nextf 
250 ifaa=4then350 

260 forc=0to3:ifa(c)=lthennextc:goto31 
O 

270 ford=0to3 

280 ifc*(c)=b*(d) andcOdandb ( d ) =0thenp 
rint"[CTRL 23w";:b(d)=1:goto300 
290 nextd 
300 nextc 

310 fore=Oto3:aCe)=0:b(e)=0:nexte: aa=0 
320 print:print"[4xCRSR-RIGHT3";:be = be 
+1 

330 ifbe=14thengosub630 
340 gotol70 

349 rem alles goed 

350 gosub770:gosub590:pokes+4,128:prin 
tsc*:print"[2xCRSR-DOWN3";:gosub69 
0 

360 print"[HQME3[6xCRSR-D0WN3[2xCRSR-R 
IGHT3[COM 81a1 1 es[SPACE3 goed[SPACE 
3 ! !" 

370 print"[CRSR-D0WN3[2xCRSR-RIGHT3in" 
be"beurten 

380 print"[CRSR-DOUN 3[2xCRSR-RIGHT3 je[ 
SPACE3deed[SPACE3 er"int(ti/60)-2"s 
econdeniSPACElover’ 

390 print"[CRSR-D0UN3[5xCRSR-RIGHT3[CT 
RL 63[COM D3";:gosub910:print"[COM 
F3[CRSR-DOUN3 CCRSR-LEFT3""[COM K3 
[CRSR-UP3" 

400 print"[5xCRSR-RIGHT3[CTRL 93[C0M K 
3[CRSR-DOUN 3[CRSR-LEFT1[CTRL O 3[CO 
M C3[CTRL 93";:gosub910:print"[CTR 
L 03[COM V3" 

410 prlnt”[2xCRSR-UP][6xCRSR-RIGHT][CT 
RL 9HC0H 6 JdrukCSPACEJ ’ f 1 ’ ISPACE1 
voor[SPACEJnog[SPACE leent SPACEJ spe 
1pokel98,O 
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geta* : ifa*<>" tFl 3"then420 
run 

rem scherm kleuren 

print"CHOMElI 4xCRSR-D0UN3[5xCRSR~R 
IGHT3"1e*(- 11):t=20 

printtabCt) " [CTRL 33CCTRL 9HSPACE 

]1tSPACE3=>[SPACE3roodt9xSPACE3" 

printtabCt) "[CTRL 4] [CTRL 93[SPACE 
3 2CSPACE3 = >[SPACE3cyaant8xSPACE3" 
printtab(t)"[CTRL 51[CTRL 93[SPACE 
]3(SPACE J = >[SPACE 3 paars[8xSPACE 3 * 
printtab(t)"[CTRL 63[CTRL 93[SPACE 
34[SPACE 3 = >[SPACE 3 groen[8xSPACE3" 
printtabCt)”[CTRL 73[CTRL 93[SPACE 
3 5[SPACE 3 = >[SPACE 3 d.b1auw[6xSPACE 3 


printtab C t)"CCTRL 83[CTRL 93[SPACE 
36 (SPACE3=>(SPACE3 geel[9xSPACE3" 
printtab C t)"[COM 33[CTRL 93[SPACE3 
7[SPACE3 = >[SPACE3 rosé[9xSPACE3" 
printtab C t)"[COM 63[CTRL 9 3[SPACE 3 
8[SPACE 3 = >[SPACE 31.groent6xSPACE3" 


printtab C t)"[COM 53tCTRL 93[SPACE3 
<-[ SPACE 3 => [SPACE 3 nieuwe [SPACE 3 invo 


printtab C t)"tCOM 83[CTRL 9 3[SPACE3 
wtSPACE3 = > t SPACE3witte[SPACE3 piont 
3xSPACE3" 

printtab(t)"[COM 43[CTRL 93[SPACE3 

ztSPACE3=>[SPACE3 zwarte[SPACE3 pion 

[2xSPACE 3" 
return 

print"[H0ME3";:forgg=lto20:print"[ 
CRSR-DOWN3";:nextgg:print"[4xCRSR- 
RIGHT 3"! 

fort=1to3ö:print"[CTRL 93"tt*;:for 
i=1to35: nexti 

print"[4xCRSR~LEFT3[CTRL 03"tt*"t4 
xCRSR-LEFT3";:fori=1tolS:nexti 
pokes+3,t/2:nextt:return 
rem meer dan 13 beurten 
gosub590 

printsc*"[2xCRSR-DOWN3":gosub690 
print"[HOME3[6xCRSR-DQWN 3[2xCRSR-R 
IGHT3[COM 83he1 aas,[SPACE3maar[SPA 
CE 3 meert SPACE 3 aIs[SPACE 313[SPACE 3 b 
eurten[SPACE3 kan" 

print"[CRSR-D0UN3[2xCRSR-RIGHT3ikt 

SPACE3 je[SPACE3 tochtSPACE3 echtt SPA 

CE3niet[SPACE3 geven. " 

print"[CRSR-DOWN3 12xCRSR-RIGHT3pro 

beert SPACE3 het[SPACE3nog[SPACE3 een 

3[SPACE 3!!" 

goto390 

rem omlijsten 

print"tCTRL 73[CTRL 03[SPACE3U[36x 
SHIFT *31" 

forgg = lto5:print"tCRSR-RIGHT3 t SHIF 
T - 3136xSPACE3[SHI FT -3":next 
print"!SPACE3J136xSHIFT *3K" 
return 


I * 


730 rem geluid 

740 pokes + 5,0:pokes + 6,248 

750 pokes+1,68:pokes,149:pokes+4,17 

760 pokes+4,16:return 


pokes+ 5,O:pokes+6, 253 

pokes+1,8:pokes,147:pokes+4,65:ret 


rem moeilijkheid 

printsci"[CRSR-DOWN3":gosub690:pr i 
nt"[HOME3[5xCRSR-DQWN3[2xCRSR-RIGH 
T3 tCOM 83druktSPACE3’f3'[SPACE3voo 
r[SPACE3moei 1iJkheid":11=0 
print"tCRSR-DOWN 3[2xCRSR-RIGHT3 dru 
k[SPACE 3’f1’t SPACE 3 om[SPACE 3 te[SPA 
CE3beginnen[CRSR-DOWN3” 

1e* CO)="[COM 73[CTRL 9Ibeginner[CT 
RL 0 3[SPACE3":1 e*(1)="tCOM 73 tCTRL 
93gevorderdtCTRL 03" 
te*="C9xCRSR-LEFT3" 

print"[HOME3[9xCRSR-D0WN3[2xCRSR-R 
IGHT3"1e*(- 11)te*;:pokel98,0 
getg*:ifg*="[Fl3"thenreturn 
if g*<>"[F33"then850 
11=not(11) 

printle*(-l1)te*;:goto850 

rem geen twee dezelfde 

f ory=0toa-l :ifb* Ca)=b*(y)thenb* Ca) 

="":a=a-l:gotoi50 

nexty:gotol40 

forgg=lto27:print"[COM 13";:next:r 
eturn 

rem scherm mastermind 
prlntsc*"[2xCRSR-D0WN3[CTRL 63" 
print"[3xCRSR-RIGHT3 [COM A3[4xSHIF 
T * 3[2xC0M R3(4xSHIFT *3tC0M S3" 

fort=ltol3:t*=str*(t) 

if1en(t*)<>3thent*=t*+”CSPACE3" 

print t*"tSHIFT -3[4xSPACE3[2xSHIF 

T -3[4xSPACE3[SHIFT -3" 

next 

print"[3xSPACE3[COM Q3C4xSHIFT *3[ 
2xSHIFT + 3[4xSHIFT *3[COM W3" 
prlnt"[3xSPACE3[SHIFT -3t4xC0M +3t 
2xSH I FT - 3 «-+-<-«-[ SHI FT -3" 
print"C3xSPACE3[COM Z3C4xSHIFT *3t 
2xC0M E3t4xSHIFT *3tC0M X3" 
return 


** EINDE LISTING mastermind 
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Snake 

Tommy van den Eynde, ja ik kan het ook niet helpen, 
weer uit Belgie maakte het volgende programma. Snake, 
slangen dus. Het' is een spel voor twee personen. Er 
verschijnen twee slangen op het scherm die steeds 
langer worden. Er mag nergens tegen aan gebotst 
worden. De bedoeling is de tegenstander in te sluiten zo 
dat deze gedwongen ergens tegen op botst. 

5 rem «snakes : door tommy van den e 
ynde* 

7 rem *geraardsbergen (belgie)* 

ÏO g=0: bb = 0 :print"[SHIFT CLR)":goto10 
OO 

45 poke53280, O :poke53281,0:al=1513:a2 
=1534:z1=1:z2=-l:bl=0:b2=0 

60 pokeal,81:pokea2,81:pokeal+54272,2 
:pokea2+54272,6 

70 f or I = 1024tol063:poke1,160:pokei+96 
O,160:next1 

80 fori=1064tol944step40:pokei,160:po 
kei+39,160:next:1fbb=0thengoto95 

92 poke1043,42:poke1044,42:poke2003,4 
Z:poke2004,42:pokel344,42:pokel664 
,42 

94 pokei383,42:poke1703,42 


> f or j = 1tolO:e = 1029 : pokee,18 : pokee+1 
,5:pokee+2,1:pokee+3,4:pokee+4,25 

' forabc=ltolOO:nextabc 
5 f ori=1029to1033:pokei,160:nextl:ne 
xt j 

> yl=peek(56321):ifyl=254thenzl=-40 
) ifyl=253thenzl=40 

) ifyl=251thenzl=-l 

> 1fyl=247thenzl=1 

> ifyl=255thenzl=zl 

> y2=peek(56320):1fy2=126thenz2=-40 
) Ify2=125thenz2=40 

> ify2=123thenz2=-l 
) ify2=l19thenz2=l 

ï ify2=127thenz2=z2 

> ifpeek(al + zl)<>32andpeek(al+zl)04 
2thenbl=l 

> ifpeek(a2+z2)<>32andpeek(a2+z2)04 
2thenb2=l 

’ ifbl=lorb2=lthengoaub2010 
I Ifbl=lorb2=lthengoto290 
) ifpeek(al+zl)=42thengotol260 
ï Ifpeek(a2+z2)=42thengotol280 

> pokeal+z1+54272,2:pokeal+54272,2:p 
okeal+zl,81:pokeal,160:al=al+zl 

I pokea2+z2+54272,6:pokea2+54272,6:p 
okea2+z2,81:pokea2,160:a2=a2+z2:go 
tolOO 

> f ori = 1 tol000:next:print"t SHI FT CLR 
1" 

1 ifbl=landb2=1thenprint:printtab(14 
)"no[SPACE Jwinner":goto325 
i Ifbl=lthenprint:printtab(12)"winne 
r(SPACE):CSPACEJp1ayerCSPACE32":go 
to325 

i ifb2=lthenprint:printtab(12)"winne 
r[SPACE]:t SPACE] p layer [ SPACE] 1" 
f ori = 1tolOOO:nexti:poke214,8:print 
:poke211,5:print"press[ SPACE]f1re[ 
SPACE]button[SPACE]"; 
prlnt"to[SPACE]p1ay[SPACE!agaIn":p 
rint:printtab(15)"’q*[SPACE]tol SPA 
CElqult" 

geta* : 1fa*="q"thenprint" [SH IFT CLR 

]":poke774,O:new:end 

p=peek(56321):ifp=239thengoto370 

goto335 

fori=1to200:nexti:gotolO 
prInt"tCTRL 2J":poke53280,O:poke53 
281,9:poke214, 4:prInt:poke21 1 ,8:pr 
int"a[SPACEInt SPACE]a"; 
print"!SPACElk[SPACE]e C SPACE]s[3xS 
PACE](2!SPACE]p1ayers)":poke214,11 
:print:poke211,17:print"game";g 
poke214,20:print:poke2il,8:print"u 
se!SPACE]j oys 1 1ck C SPACE] 1 C SPACE1to 
C SPACE1se1 eet" 

g2=peek(56321):1fg2=2Slorg2=253the 
ng=g-l 

if g2=254org2=247theng = g+1 
ifg=-ltheng=9 
Ifg=10theng=0 

ifg2=239thenprint"[SHIFT CLR]":got 

ollOO 

gotoiOOO 

ong +1 goto45, 1110,1120,1140,1160, 11 
90,1210,1250,1320,1325 
fori = 1403tol643step40:pokei, 160:po 
kei+l,160:nexti:goto45 
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1120 for1=1359tol687step41:pokei,160:po 
kei+1,160:nexti 

1130 for ï = 1367tol679step39:pokei,160:po 
kei+1,160:nextl:goto45 
1140 fori=1305tol323step2:pokel,lGO:pok 
ei+400,160:pokeï+19,160:pokei+419, 
160 

1150 nexti:goto45 

1160 fori=1307tol319step2:pokel,160:pok 
ei+21,160:poke1+400,160:pokei+421, 
160 

1170 nexti:fori=1346tol666step80:pokei, 
160:pokei+14,160:poke1+21,160 
1180 poke1+35,160:nexti:goto45 
1190 fori=1267tol747step40:pokei,160:po 
kei+12,160:pokei+21,160:pokei+33,1 
60 

1200 nexti:goto45 

1210 fori=1313tol316:pokei,160:pokei+18 
,160:poke1+400,160:pokei+418,160:n 
exti 

1220 fori=1439toi599step40:pokel,160:po 
kel+9,160:nextl 

1230 fori=1357tol398step41:pokei,160:po 
kei+292,160:nexti 

1240 fori=1370tol409step39:pokei,160:po 
kei+268,160:nexti:goto45 
1250 bb=l:goto45 

1260 pokeal,160:ifzl=-1thenal=al+37:got 
o205 

1265 ifzl=lthenal=al-37:goto205 
1270 ifzl=-40thenal=al+880:goto205 
1275 ifzl=40thenal=al-880:goto205 
1280 pokea2,160:ifz2=-lthena2=a2+37:got 
0205 

1290 Ifz2=lthena2=a2-37:goto205 
1300 1fz2=-40thena2=a2+880:goto205 
1310 ifz2=40thena2=a2-880:goto205 
1320 d=40:goto1328 
1325 d=100:goto1328 

1328 fori=ltod:pt=int(918»rnd(1)):pokei 
065+pt,160:nexti 

1360 fori=1513tol534:pokei,32:nexti:got 
o45 

2010 v1=54272:v2=54279:v3=54286:1=54293 
:h=54294:ru=54295:p1=54296 
2080 pokevl+4,0:pokev2+4,0:pokev3+4,0:a 
=0:d=10:s=8:r=ll:i=1000 
2110 pokeru,0:pokepl,15:pokevl,0:pokevl 
+1,5:pokev3,O:pokev3+l,ÏO 
2150 pokevl+5,16«a+d:pokevl+6,16*s+r:po 
kevl+4,129:pokev3+4,23:forJ=Otoi:n 
ext 

2180 pokevl+4,128:pokev3+4,16:return 
«» EINDE LISTING snake 
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Analoge klok C-16 

Niek Meyer moet gedacht hebben, blijven jullie wat meer 
bij de tijd en bedacht een analoge en digitale klok ineen. 
Een leuk programma, we zullen de tijd nooit meer 
vergeten. 

2 trapl02 
4 acnclr 

6 char,7,10,input"detSPACE]huid 1g 
e C SPACE]t1jd[ SPACE] i s ? [SPACE]OOOOO 
OC8xCRSR-LEFT]";tl* 

8 graphicl,1 
ÏO x=159:y=99:draw,x,y 
12 box,39,6,279,192 
14 box,43,11,275,187 
16 box,47,16,271,182 
18 draw,43,9to275,9 
20 draw,43,189to275,189 
22 draw,47,13to271,13 
24 draw,47,185to271,185 
26 char,16,1SPACEicbmCSPACE]16[SPA 
CE]" 

28 char,15,23,"tSPACE]00:OO:OOISPACE] 

«V 

30 char,24,5,"1":char,27,8,"2":char,2 
8,12,"3":char,27,16, "4" 

32 char,24,19,"5":char,19,21,"6":char 
,14,19,"7":char,11,16,"8" 

34 char,10,12,"9":char,11,8,"10":char 

_ 1 









: : : 
• jpjj 

=##1 


lil» 


- 


,14,5,"11":char,19,4,"12" 
s*=rlght*(tl*,2):s=val(s*) 
m*=mid*<ti*,3,2) :m= va 1 (m*) 
u*=left*(ti*,2):u=val(u*):gosub86 
char,16,23,u*:char, 19, 23, m*:char,2 
2,23,s* 
do 

dounti 1 t$Oti$ 

clrcle,x, y,0,55,270, 0, (6*m),120 
oirele,x,y,O,35,270,0,<30*u), 120 
1oop:t$ = 11 * 

circleO,x,y,0,60,270,0,<6*s>,120 

s*=right$(ti*,2):s=val< s* > 

vol5:soundl,810,4 

clrcle,x,y,0,60,270,0,(6»s),120 

char,22,23,s* 

lf sOOthenl oop 

circle0,x,y,0,55,270,0,(6»m),120 
m*=mid$(ti*,3,2):m=va 1(m$) 
char,19,23, 

clrcle,x,y,0,55,270,0,(6»m),120 
circle0,x,y,0,35,270,0,(30*u),120 
u*=lefti(ti*,2):u=val<u*):gosub86 
char,16,23,u* 

circle,x,y,0,35,270,0,(30*u),120 
1 oop 

ifm>10andm<20thenu=u+.2 
1fm>20andm<30thenu=u+.4 
1 f m>30andm<40thenu=u+ . 6 
i fm>40andm<50thenu = u+.8 
ifm>50thenu=u+1 
1fu>12thenu=u-12 
return 

graphlc0:prlntel ;err$(er):end 
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Heeft u de beschikking over een commodore 128, een 
tachtig koloms monitor en een printer, dan is het een 
koud kunstje om met dit programma etiketten af te 
drukken. Alleen invullen wat er op het etiket moet komen 
en de rest wordt voor u gedaan. 

10 rem tuf**»*»*»*»***********»»* 

20 rem *» printer star ln-10 ** 

30 rem »» 5 regels per etiket »* 

40 rem ** commodore 128 ** 

50 rem ** line feed van ** 

60 rem ** printer moet aan ! *» 

70 rem ************************* 

80 print"!SHI FT CLR1":fori = 1to500:nex 
t 

90 pr in ttab (28) " [21xCRSR-DOWN ] [ COM 6] 
gemaakt[SPACE]by [ SPACEimr. [SPACElb 
art!SPACE]2001" 

100 printtab(28)"t COM 73C24xC0M Tl 

110 print"[30xCRSR-UP 3" 

120 print tab(33)"t COM 73etiketten[SPAC 
E 3128" 

130 print tab(33)"[COM 63C13xC0M T3" 

140 fori=1to500:next 

150 print"[COM 73C2xCRSR-DOWN3[4xCRSR- 
R 1 GHT 3etiketten[SPACE 3128[2xSPACE 3 
(monitor[SPACE3op[SPACE380[SPACE3t 
ekens) 

160 fori=1to3000:next 

170 print"[SHIFT CLR3" 

180 printtab(28)"C21xCRSR-DOWN3[COH 33 
gemaakt!SPACE3 by[SPACE 3mr.[SPACE3 b 
art[SPACE3 2001" 

190 printtab(28)"[CTRL 83[24xC0M T3 

200 print"[30xCRSR-UP 3" 

210 printtabC 33)"[CTRL 83 etiketten[SPA 
CE3128" 

220 printtabC 33)"[COM 33[13xC0M T3" 

230 fori=1to500:next 

240 print"[2xCRSR-D0WN 3[4xCRSR-RIGHT3[ 

COM 3 3 wa t[SPACE 3 wi11[SPACE 3 u l SPACE 
3op[SPACE3u[SPACE3 etiket[SPACE3heb 
ben[SPACE3[CTRL 83?" 

250 input"C2xCRSR-DOWN3[4xCRSR-RIGHT3" 

;a* 

































































260 input"[4xCRSR-RIGHT3 " ; b$ 

270 input"[4xCRSR-RIGHT3" ; c$ 

280 input"[4xCRSR-RIGHT3 " ; d* 

290 input"[4xCRSR-RIGHT3 ” ; e* 

300 open4,4:cmd4 
310 print a$ 

320 print b* 

330 print c$ 

340 print d* 

350 print e* 

355 printchr$(10) 

360 print#4:c1ose4 

370 print”C SHI FT CLR3":fori = 1to500:nex 

380 printtab(28 >"[21xCRSR-DOUN1[CTRL 5 
3genaakt[SPACE3by[SPACE3mr.[SPACE3 
bart C SPACE3 2001" 

390 pr inttab (28> " [COM 4U24xC0M T3 
400 print"130xCRSR-UP1" 

410 input"tCRSR-DOUN1[4xCRSR-RIGHT 3[CO 
M 43wi1t[SPACE3u[SPACE3nog!SPACE3m 
eer[SPACE3 etiketten[SPACE3 hebben!S 

PACE3 CCTRL 53";j* 

420 ifj*="j"thenl70 

430 print"C SHI FT CLR3":end 

** EINDE LISTING etiketten 128 
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Abonnement 
op dit blad? 

Bel gratis 

06-0224222 
HP Teleservice: 
elke dag tot 20.30 uur 
(ook in het weekend) 


Adresbak 128 

Je hoeft nooit meer te zoeken naar een adres van familie ol 
kennisen, zelf een hele verenigings adressen administratie 
is er in op te bergen. Het enige wat u hiervoor moet doen is 
de listing van Paul Siem in te tikken. Het programma is 
geheel menu gestuurd en heeft daarom geen verdere uitleg 
nodig. 


1 

rem 

adresbak 128 / commodore 

-128 

2 

rem 

door paul siem 


3 

rem 

uit rozendaal 


4 

rem 



10 

n = 0 : 

n = f:vol15:dima$(400,7) 


20 

f orq 

= 1 to7 


30 

read 

t$(q):nextq 


40 

data 

"welke!SPACE 3 achternaam", 

"we 1 : 


e[SPACE[voornaam”,"welkCSPACE3adre 
s","welke!SPACE3postcode”,"welkeiS 
PACE3 p1aats","welkC SPACE3 tel.numme 
r","welke!SPACE 3diversen" 

50 trap2070:senclr:print"tCRSR-DOWN 3" 
:co 1or5,14 

60 printtab!13)"*******»***" 

70 printtab(13)"* t CTRL 93C9xSPACE3CCT 
RL 03*" 

80 printtab(13>"*CCTRL 93 hoofdmenu!CT 
RL 03*” 

90 printtab(13)"*[CTRL 93t9xSPACE3CCT 
RL 03*" 

100 printtab(13)”*********»*" 

110 print"!CRSR-DOWN 3" 

120 printtab(4)"!CTRL 93!SPACE31!SPACE 
3[CTRL 03!SPACE3 = CSPACE3 gegevens CS 
PACE3 Iaden” 

130 printtab(4)"CCRSR-DOUN3 CCTRL 9 3!SP 
ACE32CSPACE3[CTRL 03 CSPACE3 = CSPACE 
3gegevensCSPACE3invoeren" 

140 printtab(43"CCRSR-DOUN3 CCTRL 93CSP 
ACE33CSPACE3 CCTRL O3 CSPACE3 = CSPACE 
3 gegevens!SPACE 3 zoeken!SPACE 3/C SPA 
CE 3 muteren" 

150 printtab(4)”CCRSR-DOUN3 CCTRL 93CSP 
ACE34CSPACE3[CTRL O3 CSPACE3 = CSPACE 
3 gegevens!SPACE3 sorteren" 

160 printtab(4)"[CRSR-DOUN3 CCTRL 93CSP 
ACE3 5!SPACE3[CTRL 03 CSPACE3 = CSPACE 
3gegevens!SPACE3naar!SPACE3deCSPAC 
E3printer" 

170 printtab(4)"CCRSR-DOWN3 CCTRL 9 3!SP 
ACE36CSPACE3[CTRL 03 CSPACE3 = CSPACE 
3 gegevens!SPACE 3 saven" 

180 printtab(4)"[CRSR-DOUN 3 C CTRL 93[SP 
ACE37[SPACE3[CTRL O3!SPACE3 = [SPACE 
3 directory" 

190 printtab(4)"[CRSR-DOWN3[CTRL 93[SP 
ACE 3 8!SPACE 3!CTRL O3[SPACE3 = !SPACE 
3 stoppen" 

200 getkeyw* 

210 w=va 1(w*) 

220 ifw=>landw<=8then230:elsegosubl210 
:goto200 

230 onwgoto350,410,610,860,970,1070,30 
0,240 
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240 gosubll40 

250 printtab(4)"[CTRL 91[SPACE]1CSPACE 
3 CCTRL 0 3 tSPACE! = t SPACE]stoppen" 
260 getkeyw* 

270 ifw* = "<-"then50 

280 ifw*="l”then290:el segosub 1210: goto 
260 

290 scnclrtend 

300 scnc!r:print"[2xCRSR-D0UN3" 

310 sound4,2,39,24 
320 directory 

330 print"!2xCRSR-DOWN 3 druk[SPACE 3 een[ 
SPACE 3 toets[SPACE3 voor[SPACE 3 menu" 
:soundO,0,39,24:getkeyw* 

340 goto50 
350 gosubll40 

360 printtab(4)”[CTRL 93[SPACE311SPACE 
3[CTRL 03[SPACE3=[SPACE3gegevens[S 
PACE31 aden[SPACE3van[SPACE]schi 
370 getkeyw* 

380 ifw$="l"thengosub2190:goto400 
390 ifw* = "<-"then50:elsegosubl210:goto3 
70 

400 goto50 
410 n=n+l 

420 scnc1r:print"[CRSR-DOWN3":f o = 0 
430 printtab(2)"[COM 63achternaamCSPAC 
E3[CTRL 43";:inputat(n,1) 

440 printtab(2)"[CRSR-DOWN3[COM 63voor 
naam[3xSPACE3[CTRL 43";:inputa*(n, 
2) 

450 printtab(2)"[CRSR-DOUN][COM 63adre 
s[6xSPACE3[CTRL 43";:inputa*(n,3? 
460 printtab(2)"[CRSR-DOWN3[COM 63pOSt 
codeC3xSPACE3[CTRL 43";:ïnputa*(n, 
4) 

470 printtab(2)"[CRSR-DOUN3[COM 63plaa 
ts[5xSPACE3[CTRL 43";: inputatCn,5) 
480 printtab(2)”[CRSR-DOWN][COM 63tel. 
nummer[SPACE][CTRL 4 3";:inputatCn, 
6) 

490 printtab(2)”[CRSR-DOWN3[COM 63dive 
rsen[3xSPACE3[CTRL 43";:inputat<n, 
7) 

500 print"!2xCRSR-D0WN3" 

510 printtab(2)"[COM 63is[SPACE3dIt[SP 
ACE 3correct[SPACE](j/n)[SPACE3[CTR 
L 43"; 

520 getkeyw* 

530 ifw*="n"thenfo=l:gosubl230:goto550 
540 ifw*<>"j"thengosubl210:goto520 
550 printw* 

560 printtab(2)"[CRSR-DOUN][COM 63nog[ 
SPACE3een[SPACE3 keer[SPACE3(j/n)[S 
PACE3[CTRL 43"; 

570 getkeyw* 

580 ifw*="n"thenprintw*:goto50 
590 lfw*="j"then600:else:gosubl210:got 
o570 

600 printw*:iffo=lthen420:e1se410 
610 gosubli40 

620 printtab(4)"waarop[SPACE]wilt[SPAC 
E3u[SPACE3zoeken!SPACE3/[SPACE 3mut 
eren[SPACE 3 ?" 

630 gosubl730 
640 getkeyw* 

650 k = va 1 (w*) 

660 ifw* = "<-"then50 

670 ifk=>landk<=7then680:elsegosub1210 
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:goto640 
680 gosubll40 

690 printtab<4)t*Ck>;"[SPACE3wilt[SPAC 
E3u[SPACE3 zoeken” 

700 printtab(4)"[CTRL 43[CRSR-DOUN3"; 
710 inputan* 

720 i f an$ = "<-" thenpr int" [ COM 63":goto61 
O 

730 r=4:gosubl240 
740 getkeyw* 

750 i f w* = "<-"then680 
760 ifw*="v"then810 
770 ifw*="t"then820 
780 ifw*="»"then830 
790 ifw*="@"then840 

800 ifw*=”p"then850:elsegosubl210:goto 
740 

810 r=2:gosubl240:goto740 
820 gosubl330:goto740 
830 gosublSSO:goto740 
840 gosubl640:goto740 
850 gosubl950:goto740 
860 gosubll40 

870 printtab(4)"waarop[SPACE]wi1t[SPAC 
E3u[SPACE3sorterenCSPACE3?" 

880 gosubl730 
890 getkeyw* 

900 k = va 1Cwt) 

910 ifw* = "*-"then50 
920 ifk=>landk<=7then940 
930 gosubl210:goto890 
940 scnclr 

950 printtab(2)"[2xCRSR-DOUN3een[SPACE 
3moment je[SPACE]a.u. b. . . " 

960 gosubl810:gosubl210:printtab(2)"[2 
xCRSR-DOUN][COM 63[SPACE3gesorteer 
d[SPACE]":goto50 
970 gosubll40 

980 printtab(4)"waarop!SPACE3wi1t[SPAC 
E3u[SPACE3uitprinten[SPACE3?" 

990 gosubl730 

ÏOOO getkeyw* : i f w* = "«-"then50 
1010 k=val(w*):ifk=>landk<=7thenl020:e1 
segosubl210:gotolOOO 
1020 gosubl140 

1030 printtab(4)t*(k)"[SPACElwilt[SPACE 
3u!SPACE3uitprinten" 

1040 printtab(4)"[CTRL 43[CRSR-DOUN3";: 
inputan* 

1050 ifam* = "<-"then970 
1060 gosub2420:goto50 
1070 gosub1140 

1080 printtab(4)"[CTRL 93[SPACE]1[SPACE 
3[CTRL O3[SPACE] = [SPACE3 gegevens[S 
PACE]saven!SPACE3 op[SPACE3schijf" 
1090 getkeyw* 

1100 if w* = "«-"then50 
1110 ifw* = "1"thenl130 
1120 gosubl210:gotol090 

1130 ifn=0thengosubl210:goto50:e1se:gos 
ub2310:goto50 

1140 scnclr:print"[COM 63[CRSR-DOWN3" 
1150 printtabtll)"»*»**»»»*******»*" 
1160 printtab(11)"*[CTRL 93[15xSPACE3[C 
TRL 03»" 

1170 pr i nttab C 11) " * [ CTRL 9 3 typt SPACE 3 <-[ 
SPACE 3 voor[SPACE 3 menu[CTRL 03*" 
1180 printtab(11)"*[CTRL 93[lSxSPACE3EC 
TRL 03*" 


46 
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1190 printtabCll)”*****************” 
1200 print"[CRSR-D0WN3":return 
1210 pen'c" 

1220 return 

1230 fory=lto7:at(n,y)="”:nexty:return 

1240 i f r = 4 then1260 

1250 f=f+1:gotol270 

1260 f = 0 

1270 do:geti$ 

1280 ifani = a*(f,k)thengosub1400:re turn 
1290 i f it = "+-"thenprinttab(r) "[CRSR-DOWN 
3!C0M 6 3 1 CTRL 931SPACE3onderbrekin 
g1 SPACE3":gosubl210:gotol320 
1300 f = f +1 : loopwhllef<400:gosubl210 
1310 printtab(r)”[CRSR-DOWN 3 [ COM 631CTR 
L 9 31 SPACE 3 geenCSPACE3 gegevens[SPA 
CE 3in1 SPACE 3 het 1 SPACE 3bestandlSPAC 
E3" 

1320 return 

1330 if f =0thenl380 

1340 do:f =f- 1 

1350 ifant=a$(f,k)thengosubl400:gotol37 
O 

1360 1oopunti1f=0:gotol380 
1370 return 

1380 printtab(2)"[CRSR-DOWN31COM 63CCTR 
L 931SPACE3 geen 1 SPACE 3gegevenslSPA 
CE 3in1 SPACE 3 het 1 SPACE 3 bes tand 1SPAC 
El" 

1390 gosubl210:return 
1400 scnclr 

1410 printtabC2)"lCRSR-DOWN31COM 63acht 
ernaamlSPACE3:[2xSPACE3[CTRL 43";a 
t(f,1) 

1420 printtab(2)"[CRSR-DOWN3[COM 63voor 
naam[3xSPACE 3:[2xSPACE3(CTRL 43";a 
t(f,2) 

1430 printtab(2)"[CRSR-DOWN3[COM 63adre 
s[6xSPACE3:[2xSPACE3[CTRL 43";at(ƒ 
,3) 

1440 printtab(2)"[CRSR-DOWN)[COM 63post 
code[3xSPACE 3:[2xSPACE3[CTRL 43" ;a 
t(f,4) 

1450 printtab(2)"[CRSR-D0WN3[COM 63p]aa 
ts[5xSPACE3:[2xSPACE3[CTRL 43";a$C 
f,5) 

1460 printtab(2)"[CRSR-DOWN 3[COM 63tel. 
nummer[SPACE3:[2xSPACE3[CTRL 43";a 
t(f,6) 

1470 printtab(2)"[CRSR-DOWN3[COM 63dive 
rsen[3xSPACE3:[2xSPACE3[CTRL 43”;a 
t(f ,7) 

1480 printtab(2)"[C0H 63[2xCRSR-DOWN 3ty 
p[ SP ACE 3 ’ ’ [ SPACE 3 voo r lSPACE3roenu" 

1490 printtab(2)"typ[SPACE3’v’[SPACE3vo 
or[SPACEIverder" 

1500 printtab<2)"typ[SPACE3’t’ [SPACE3vo 
or[SPACE 3 terug" 

1510 printtab(2)"typ[SPACE3’*’ [SPACE)vo 
or[SPACE[veranderen" 

1520 printtab(2)"typ[SPACE3[SPACElvo 
or[SPACE)wissen" 

1530 printtab(2)"typ[SPACE3’p’[SPACE3vo 
or[SPACE3 printen" 

1540 return 

1550 gosubl210:printtab <2)"[CRSR-DOWN3w 
atCSFACElwi 1 t[SPACE3u[SPACE3verand 


1S60 print"[23xCRSR-UP3[14xCRSR-RIGHT3" 


1570 fory=lto7 
1580 inputa$(f,y) 

1590 print"[CRSR-DOWN3[14xCRSR-RIGHT3"; 
1600 nexty 

1610 print"[8xCRSR-DOWN3[14xCRSR-LEFT3[ 
25xSPACE3" 

1620 gosub !210 
1630 return 

1640 gosubl210:printtab(2)"[CRSR-DOWN)[ 
COM 63zeker[SPACE)weten[SPACE3(j/n 
)[SPACE3[CTRL 43" 

1650 getkeyw*:ifw$="n"thenl710 
1660 ifw$="j"thenl670:e1segosubl210:got 
ol650 

1670 fory=lto7 
1680 ai< f,y)="" 

1690 nexty 
1700 gosubl210 

1710 print"!CRSR-UP3[23xSPACE3[COM 63[2 
xCRSR-UP 3" 

1720 return 

1730 printtab(4)"tCRSR-DOWN3[CTRL 93[SP 
ACE31[SPACE3[CTRL O3[SPACE3=[SPACE 
3achternaam" 

1740 printtab(4)"[CRSR-DOWN3[CTRL 93[SP 
ACE 3 2[SPACE 3[CTRL O 3[SPACE 3 = [SPACE 
3 voornaam" 

1750 printtab(4)"[CRSR-DOWN3[CTRL 93[SP 
ACE 3 3[SPACE 3[CTRL O 3[SPACE 3 = [SPACE 
3adres" 

1760 printtab(4)"[CRSR-DOWN3[CTRL 93!SP 
ACE 3 4[SPACE3[CTRL O 3[SPACE 3 = [SPACE 
[postcode" 

1770 printtab(4)”[CRSR-DOWN 3[CTRL 9 3[SP 
ACE35[SPACE)[CTRL 03[SPACE3=[SPACE 
3plaats” 

1780 printtab(4)"[CRSR-DOWN3[CTRL 93[SP 
ACE36[SPACE3[CTRL 0 3[SPACE3 = [SPACE 
3 te 1.nummer" 

1790 printtab(4)"[CRSR-DOWN3[CTRL 93[SP 
ACE37[SPACE3[CTRL O3[SPACE3=[SPACE 
3diversen" 

1800 return 
1810 forx=lton-l 
1820 forz=lton-x 

1830 ifat(z,k)=>a$(z+1,k)thengosub!860 
1840 nextz:nextx 
1850 return 
1860 fory=lto7 

1870 wt=at(z,y):at(z,y)=ai(z+1,y):at(z+ 
1 ,y)=w$ 

1880 nexty 

1890 return 

1900 openl,8,15 

1910 input♦1,ff,fbi,sp,se 

1920 printtab(3)"[COM 63[2xCRSR-DOWN3”; 

f f;fb$ ; sp;se 
1930 closel 
1940 return 
1950 open4,4 
1960 printi4:print#4 

1970 print* 4 , "[2xSPACE3achternat*i^SPACe’ 
3:[SPACE 3";at(n,1) 

1980 print #4,"T2xSPACEJvoornaam [3xSPACE 
3:[SPACE3";a$Cn,23 

1990 print# 4 ,"r2xSPACE3adres[ 6 xSPACE 3 :[ 
SPACE3";at(n, 33 

2000 print#4,"[2xSPACEJpostcode[3xSPACE 
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3 : [SPACE3";at(n, 4) 


2430 print tab C 2)"[CRSR-DOUN 3 hou[SPACE 3 t 

2010 print*4,"[2xSPACE3p1aats[5xSPACE3: 


ij dens[SPACE 3 het[SPACE 3 printen[SPA 

[SPACE3";at(n,5) 


CE3[CTRL 93[SPACE3 s[SPACE3[CTRL 03 

2020 print#4,"[2xSPACE3te 1.nummerCSPACE 


[SPACE3 voor":printtab(2)"[CRSR-DOU 

3 : CSPACE3";at(n,6) 


N3 stoppen[SPACE3aan.[SPACE3hij[SPA 

2030 printt4,"[2xSPACE3diversen[3xSPACE 


CE 3 print[SPACE 3 dan[SPACE 3 a1I een[SP 

3:tSPACE3";at(n,7) 


ACE 3 nog":printtab(2)"[CRSR-DOUN 3 he 

2040 close4 


t[SPACE3 laatste[SPACE3adres[SPACE3 

2050 gosubl210 


af.":getkeywt 

2060 return 


2440 fory=lton 

2070 scnclrrprint"[3xCRSR-D0UN3":c1ose2 


2450 ifat(y,k)=amtthen2480 

:trap2070 


2460 nexty 

2080 gosubl210 


2470 return 

2090 printtab(4)"[C0M 63[CTRL 93" errt( 


2480 getrt:ifrt="s"then2590 

er);"[SPACE3 error[SPACE3 in";e1;"[C 


2490 open4,4 

TRL 03" 


2500 print#4:print#4 

2100 printtab <43"[2xCRSR-DOWN3wi11[SPAC 


2510 print*4,"[2xSPACE3achternaam[SPACE 

E3u" 


3:[SPACE 3";at(y,1) 

2110 printtab(4 3 " tCRSR-DOUN3[CTRL 93[SP 


2520 print#4,"[2xSPACE3voornaam[3xSPACE 

ACE31[SPACE3[CTRL 03[SPACE3=[SPACE 


3:[SPACE 3";at(y,2) 

] gegevens C SPACE]wegschrijven" 


2530 print#4,"[2xSPACE3adres[6xSPACE3:[ 

2120 printtab(4)"[CRSR-DOUN3[CTRL 93[SP 


SPACE3";at(y,3) 

ACE 3 2[SPACE3[CTRL 03[SPACE3 = [SPACE 


2540 print*4,"[ 2 xSPACE3postcode[3xSPACE 

3 stoppen" 


3:[SPACE 3”;at(y,4) 

2130 printtab(4)"[CRSR-DOWN 3 C CTRL 9 3[SP 


2550 print#4,"[2xSPACE3plaats[5xSPACE3: 

ACE 3 <-[ SPACE 3 [ CTRL 0 3 t SPACE 3 = C SPACE 


[SPACE3";at(y,5) 

3 terug[SPACE3 naar[SPACE3 menu" 


2560 print#4,"[2xSPACE3te 1.nummer[SPACE 

2140 getkeyw$ 


3:[SPACE 3";at(y,6) 

2150 ifwt="e"then50 


2570 print#4,"[2xSPACE3diversentSxSPACE 

2160 w = va 1 (v $) 


3:[SPACE 3";at(y,7) 

2170 onwgotol070,240 


2580 c1ose4:goto2460 

2180 gosubl210:goto2140 


2590 printtab(2)"tCRSR-DOUN3[CTRL 93ond 

2190 printtab<4);:input”[2xCRSR-DOWN3fi 


erbreking" 

lenaamtSPACE][CTRL 43";fit 


2600 gosub1210:printtab(2)"[CRSR-DOUN 3 t 

2200 i f f i t = "<-"then50 


yp[SPACE3 " [SPACE3 voor [SPACE3menu 

2210 open2,8,2,fi$ + ",s,r" 


":printtab(2)"typtSPACE3’d’[SPACE3 

2220 draw :x=0 


voort SPACE3 doorgaan” 

2230 do:x=x+l:fory=lto7 


2610 getkeywt 

2240 input#2,at(x,y) 


2620 i f w$ = "«-"then50 

2250 nexty:n=n+l:loopwhi lest=0 


2630 ifwt="d"then2490:e1segosubl210:got 

2260 c1ose2:1ocate 


o2610 

2270 gosub1900 


2640 rem ”[10xDEL3 

2280 ifff = 0 andf bt="ok"andsp=Oandse=Othe 


2650 rem ”[10xDEL3 

n2300 


2660 rem "[lOxDEL3[lOxSPACE3einde[SPACE 

2290 printtab(4)"[2xCRSR~D0UN3[COM 63[C 


31isting 

TRL 93[SPACE31eesfout[SPACE3!![SPA 


2670 rem ”[10xDEL3 

CE 3":printtab(4)"[CRSR-DOWN3probee 


2680 rem "[lOxDEL3tlOxSPACE3door[SPACE3 

r[SPACE3 het[SPACE 3 nog[SPACE3 eens. . 


pau1CSPACE]siem 

. n : gosub1210:5:goto350 


2690 rem "tl0xDEL3 

2300 printtab<4)"[CRSR-DOUN 3[COM 6 3[CTR 


2700 rem "[10xDEL3[lOxSPACE3uit[SPACE3 r 

L 93[SPACE3ok[SPACE3":2:return 


ozendaa1 

2310 printtab(4);:input"[2xCRSR-D0WN 3 fi 


2710 rem "[10xDEL3 

lenaam[SPACE3[CTRL 43";fit 


2720 rem "[10xDEL3t10xSPACE3- 

2320 iff i $ = "«-" then50 


— 

2330 open2,8,2,"@0:"+fit+",s,w" 



2340 draw 


«* EINDE L1STING adresbak 128 

2350 forx=lton-l:fory=ito7 



2360 print#2,at(x,y) 



2370 nextymextx 



2380 c1ose2:1ocate 



2390 gosubl900 


REGEL 1 3 REGEL 50 209 

2400 ifff =0andf bt="ok"andsp=Oandse=Othe 


REGEL 2 35 REGEL 60 219 

n2410 


REGEL 3 33 REGEL 70 5 

2410 printtab(4)”[CRSR-DOUN3[COM 631CTR 


REGEL 4 143 REGEL 80 170 

L 9 3[SPACE3 ok[SPACE 3":2:return 


REGEL 10 152 REGEL 90 5 

2420 scnc1r:printtab(2) w CCOM 63L2xCRSR- 


REGEL 20 144 REGEL 100 219 

DOWN 3 doe[SPACE 3 de[SPACE 3 printer[SP 


REGEL 30 174 KEGEL 110 238 

ACE3aan[SPACE3en[SPACE3 druk[SPACE3 


REGEL 40 56 REGEL 120 167 

een[SPACE3toets.":gosub1210 
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REGEL 130 187 

REGEL 140 113 

REGEL ISO 201 
REGEL 160 39 

REGEL 170 2l4 

REGEL 180 187 

REGEL 190 48 

REGEL 200 21 

REGEL 210 154 

REGEL 220 10 

REGEL 230 152 

REGEL 240 83 

REGEL 250 24 

REGEL 260 21 

REGEL 270 103 

REGEL 280 42 

REGEL 290 182 

REGEL 300 33 

REGEL 310 212 

REGEL 320 238 

REGEL 330 110 

REGEL 340 238 

REGEL 350 83 

REGEL 360 67 

REGEL 370 21 

REGEL 380 132 

REGEL 390 36 

REGEL 400 238 

REGEL 410 41 

REGEL 420 193 

REGEL 430 66 

REGEL 440 227 

REGEL 450 240 

REGEL 460 227 

REGEL 470 72 

REGEL 480 107 

REGEL 490 229 

REGEL 500 255 

REGEL 510 245 

REGEL 520 21 

REGEL 530 83 

REGEL 540 74 

REGEL 550 20 

REGEL 560 90 

REGEL 570 21 

REGEL 580 45 

REGEL 590 124 

REGEL 600 50 

REGEL 610 83 

REGEL 620 150 

REGEL 630 88 

REGEL 640 21 

REGEL 650 142 

REGEL 660 103 

REGEL 670 2 

REGEL 680 83 

REGEL 690 141 

REGEL 700 200 

REGEL 710 56 

REGEL 720 10 

REGEL 730 198 

REGEL 740 21 

REGEL 750 160 

REGEL 760 146 

REGEL 770 145 

REGEL 780 104 

REGEL 790 127 

REGEL 800 78 

REGEL 810 34 




REGEL 820 

178 

REGEL 830 

182 

REGEL 840 

182 

REGEL 850 

186 

REGEL 860 

83 

REGEL 870 

237 

REGEL 880 

88 

REGEL 890 

21 

REGEL 900 

142 

REGEL 910 

103 

REGEL 920 

68 

REGEL 930 

181 

REGEL 940 

232 

REGEL 950 

242 

REGEL 960 

206 

REGEL 970 

83 

REGEL 980 

141 

REGEL 990 

88 

REGEL 1000 

182 

REGEL 1010 

22 

REGEL 1020 

83 

REGEL 1030 

152 

REGEL 1040 

57 

REGEL 1050 

217 

REGEL 1060 

125 

REGEL 1070 

83 

REGEL 1080 

22 

REGEL 1090 

21 

REGEL 1100 

103 

REGEL 1110 

153 

REGEL 1120 

222 

REGEL 1130 

159 

REGEL 1140 

169 

REGEL 1150 

213 

REGEL 1160 

3 

REGEL 1170 

218 

REGEL 1180 

3 

REGEL 1190 

213 

REGEL 1200 

182 

REGEL 1210 

137 

REGEL 1220 

142 

REGEL 1230 

46 

REGEL 1240 

51 

REGEL 1250 

166 

REGEL 1260 

40 

REGEL 1270 

51 

REGEL 1280 

36 

REGEL 1290 

57 

REGEL 1300 

84 

REGEL 1310 

163 

REGEL 1320 

142 

REGEL 1330 

38 

REGEL 1340 

63 

REGEL 1350 

234 

REGEL 1360 

159 

REGEL 1370 

142 

REGEL 1380 

131 

REGEL 1390 

25 

REGEL 1400 

232 

REGEL 1410 

198 

REGEL 1420 

86 

REGEL 1430 

99 

REGEL 1440 

86 

REGEL 1450 

187 

REGEL 1460 

222 

REGEL 1470 

88 

REGEL 1480 

187 

REGEL 1490 

138 

REGEL 1500 

71 


REGEL 1510 

128 

REGEL 2200 

159 

REGEL 1520 

133 

REGEL 2210 

93 

REGEL 1530 

220 

REGEL 2220 

151 

REGEL 1540 

142 

REGEL 2230 

52 

REGEL 1550 

226 

REGEL 2240 

117 

REGEL 1560 

181 

REGEL 2250 

234 

REGEL 1570 

152 

REGEL 2260 

48 

REGEL 1580 

6 

REGEL 2270 

87 

REGEL 1590 

191 

REGEL 2280 

173 

REGEL 1600 

219 

REGEL 2290 

98 

REGEL 1610 

251 

REGEL 2300 

112 

REGEL 1620 

81 

REGEL 2310 

195 

REGEL 1630 

142 

REGEL 2320 

159 

REGEL 1640 

203 

REGEL 2330 

250 

REGEL 1650 

9 

REGEL 2340 

35 

REGEL 1660 

170 

REGEL 2350 

92 

REGEL 1670 

152 

REGEL 2360 

137 

REGEL 1680 

119 

REGEL 2370 

239 

REGEL 1690 

219 

REGEL 2380 

48 

REGEL 1700 

81 

REGEL 2390 

87 

REGEL 1710 

41 

REGEL 2400 

175 

REGEL 1720 

142 

REGEL 2410 

112 

REGEL 1730 

212 

REGEL 2420 

246 

REGEL 1740 

100 

REGEL 2430 

204 

REGEL 1750 

113 

REGEL 2440 

175 

REGEL 1760 

100 

REGEL 2450 

234 

REGEL 1770 

201 

REGEL 2460 

219 

REGEL 1780 

236 

REGEL 2470 

142 

REGEL 1790 

102 

REGEL 2480 

18 

REGEL 1800 

142 

REGEL 2490 

51 

REGEL 1810 

138 

REGEL 2500 

210 

REGEL 1820 

179 

REGEL 2510 

241 

REGEL 1830 

218 

REGEL 2520 

129 

REGEL 1840 

240 

REGEL 2530 

142 

REGEL 1850 

142 

REGEL 2540 

129 

REGEL 1860 

152 

REGEL 2550 

230 

REGEL 1870 

138 

REGEL 2560 

9 

REGEL 1880 

219 

REGEL 2570 

131 

REGEL 1890 

142 

REGEL 2580 

99 

REGEL 1900 

198 

REGEL 2590 

120 

REGEL 1910 

216 

REGEL 2600 

209 

REGEL 1920 

246 

REGEL 2610 

21 

REGEL 1930 

209 

REGEL 2620 

103 

REGEL 1940 

142 

REGEL 2630 

162 

REGEL 1950 

51 

REGEL 2640 

121 

REGEL 1960 

210 

REGEL 2650 

121 

REGEL 1970 

230 

REGEL 2660 

248 

REGEL 1980 

118 

REGEL 2670 

121 

REGEL 1990 

131 

REGEL 2680 

13 

REGEL 2000 

118 

REGEL 2690 

121 

REGEL 2010 

219 

REGEL 2700 

11 

REGEL 2020 

254 

REGEL 2710 

121 

REGEL 2030 

120 

REGEL 2720 

239 

REGEL 2040 

212 



REGEL 2050 

81 



REGEL 2060 

142 

READY. 


REGEL 2070 

24 



REGEL 2080 

81 



REGEL 2090 

192 



REGEL 2100 

148 



REGEL 2110 

227 



REGEL 2120 

42 



REGEL 2130 

12 



REGEL 2140 

21 



REGEL 2150 

103 



REGEL 2160 

154 



REGEL 2170 

251 



REGEL 2180 

219 



REGEL 2190 

195 
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Lp 128 

Een korte naam vor een uitgebreid programma. Probeer 
om een lijn die over het scherm loopt zolang mogelijk te 
laten worden, zonder de rand, obstakels, of de lijn zelf te 
raken. Op het scherm staan een aantal hartjes die 
moeten worden "opgegeten". Het level wordt beindigt 
door als laatste het rondje te raken, waarna een hoger 
niveau zich aandient. Er zijn 6 verschillende niveau's. 
Hoe langer de lijn wordt des te hoger is de te verdienen 
)onus. Voor de wat verder gevorderde programmeurs: 
Het programma maakt gebruik van een machinetaal 
nterrupt routine om de laatste twee joystick bewegingen 
e bufferen, (buffer op $1310, routine van af $1312). 
londer deze routine zou de joystick steeds in de 
gewenste stand moeten worden gehouden precies op 
iet gewenste moment dat de trage basic daarom 
/raagt. Hierdoor zou alle soepelheid uit het spel verloren 
jaan. Dit is heel makkelijk aan te tonen door in regel 
170 de "J = peek(JB)" te vervangen door "J=joy(2)". Het 
irogramma maakt gebruik van een 40 koloms scherm. 

10 goto 580:rem"[2xSHIFT *]tSPACE11CS 
PACE 3i[SPACE 3 j [ SPACE 3 n [ SP ACE 1[2xSH 

I FT * 3[SPACE3cl28[SPACE3[4xSHIFT * 

3 I Ut 37xSH I FT *31C2xSHIFT -3+-[6xSHI 
FT «3[SPACE 3 (c)[SPACE31986[2xSPACE 
3yprQsof tware CSPACE3 16xSHI FT * 3 K C S 
HIFT - 3 J t 38xSHI FT *3K 

20 do:ql=int(rnd<1>*1000+1024):1oop u 
ntil peek(ql)=32:return 
30 pen pp*:p= 32 :s=s+25:nn=nn-1:return 
40 pen pp*:p=32:s=s+25:nn=nn-l:if nn< 

4 then return 

50 gosub 20:if nn=4 then poke ql,87:p 
oke ql+qc,14:return:e1se poke ql,8 
3:poke ql+qc,13:return 
60 pen pp*:pl=p:p=32:s=s+25:nn=nn-l:i 
f pl=83 then return 
70 nk = nk-1 : i f nk<0 then return 
80 gosub 20:poke ql,83:poke ql+qc,13: 
lf nk=0 then gosub 20:poke ql,87:p 
oke ql+qc,14:return:e1se return 
90 pen pp*:pl=p:p=32:s=s+25:nn=nn-1:i 
f pl=83 then return 
100 nk=nk-1:if nk<0 then return 
110 gosub 20:poke ql,83:poke ql+qc,13: 
gosub 20:if nk=0 then poke ql,87:p 
oke ql+qc,14:return:e1se poke ql,9 
0:poke ql+qc,13:return 
120 pen pp*:pl=p:p=32:s=s+25:nn=nn-l:i 
f pl=83 then return 
130 nk=nk-1:1f nk<>0 then return 
140 for i=l to 5:gosub 20:poke ql,83:p 
oke ql+qc,13:next:gosub 20:poke ql 
,87:poke ql+qc,14:return 
150 do:gosub 310: l:poke jb+l,0:poke j 
b, 0:sr=1: do: get k*:loop unti1 k* = " 

tl 

160 do:t=0:do:t=t+1 

170 : : if dm=0 then j=peek(jb):poke j 

b,0:rr=zr(r, j):else rr=r+int(1.3*r 


nd(l)-.15):if rr=0 then rr=4:else 
if rr=5 then rr=l 

180 : : ql=q+l(rr+10):if dm=0 then dx= 

-l:else p=peek(ql):dx=(t>tx or p=3 
2 or p=83 or p=87 or p=90) 

190 : loop unti! dx:poke q,z(r,rr):pok 
e q+qc,7:q=ql:r=rr:p=peek(q):s=s+l 
:sr=sr*1.01 

200 : print using "CH0ME3CCTRL 93score 
:##*##[SPACE 3bonus:#*#*"; s,intCsr/ 
2) 

210 : if p=83 or p=90 then on nv gosub 
30,30,40,60,90,120 

220 : get k$:if k*=chr*(136) then p=87 
: dm=l 

230 loop unti1 p<>32:qy=int<(q-1024)/4 
0):qx=q-1024-40«qy:if qx<l or qx>3 
8 or qy<l or qy>23 then r=r+2:if r 

>4 then r=r-4 

240 if dm=0 and p=87 and nn=0 then gos 
ub 260:e1se if dm<=0 then gosub 28 
0 

250 loop until dm or lv=0:return 

260 scnclr:char 1,10,6,"CCTRL 63U[17xS 
HIFT *31":cha r 1, 10,7,"[SHI FT -3IS 
PACE 3[COM 6 3 g [ SPACE 3 o[SPACE 3 e t SP AC 
E3d[3xSPACE3z[ SPACE 3 o[SPACE3!CSPAC 
Eli CTRL 6 3 C SHI FT -3":char 1,10,8," 
J[17xSH1 FT * 3K":nv = nv + l:if nv>nx t 
hen s=s+100:nv=nx 

270 s=s+int(sr/2):char l,5,ll:print ”t 
COM 8 3score:";s;"[2xSPACE3vo1gendt 
SPACEInivo:";nv:pen"t7o4qc. figqao5 
c.fidqcifeqf o4*bag.f": 2:return 

280 poke q,42:poke q+qc,10:sound 1,800 
0,100,1,4000,40,2,2048: 3:lv=lv-l: 
if 1 v>0 then return 

290 scnc1r:char 1,8,7,"[CTRL 53U[23xSH 
IFT *31”:char 1 ,8,8,"[SHIFT - 3 CSPA 
CE3 CCOM 83 het[SPACE3 spel[SPACElisC 
SPACElafge lopen[SPACE3[CTRL 5 3 tSHI 
FT char 1,8,9, "J[23xSHI FT *3K" 

300 char 1,15,12:print"[COM 83score:"; 
s:pen"tlul5o3qfao4co3afahcc.fqro4u 
4": 2:return 

310 scnc1r:co 1or 5,ll:poke 248,192:pri 
nt using "[CTRL 93[2xSPACE3"+tx*(- 
dm)+"[4xSPACE 3 nivo:#[SPACE 31ijnen: 
t[SPACE 3[CTRL 0 3";nv, 1v ; 

320 for i=1 to 23 :print"[CRSR-LEFT3[CT 
RL 93[2xSPACE3[CTRL 03":next:print 
"[CRSR-LEFT3[CTRL 9 3[41xSPACE3[CTR 
L 03" 

330 poke 248,0:poke q,81:poke q+qc,7 

340 if nv<3 then il = 10:else if nv = 5 th 
en i1=1:e1se il=5 

350 if nv<4 then p=83: nk=0 :e1se p=90:n 
k=5 

360 for i=1 to il:gosub 20:poke ql,p:p 
oke ql+qc,13:next:nn=10 

370 if nv<3 then gosub 20:poke qi,87:p 
oke ql+qc,14 

380 if nv>l then for i=l to 5+5*nv:gos 
ub 20:poke ql,160:poke ql+qc,10:ne 
xt 

390 return 

A00 print chr$(147)chri(142)chr$(ii )• 
x=6:tx=ÏO:qc=54272: PP *="tOa":poin 



r+ 3 
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er 4,6, O, 9,12,0:key 7,chr*(136) 

410 for i=l to 4:for j=l to 4:read z(i 
,j ):next:next:data 64,73,81,75,74, 
93,75,81,81,85,64,74,85,81,73,93 
420 for r=l to 4:for j=0 to 8:read zr( 
r,j):next:next 

430 data 1,4,4, 1,2, 2, 2, 3,4, 2,4, 1, 1, 1,2 
,3,3,3 

440 data 3,4,4,1,2,2,2,3,4,4,4,1,1,1,2 
,3,3,3 

450 pot 15:for q=4864 to 4945:read p:p 
oke q,p:next:sys 4933:jb=4880:rem 
ml joy buffer rout 

460 data O, 0,0,0, 0,4,2,3, O, 6,8, 7, 0, 5,1 
,0 

470 data 0,0,162,1,173,16,19,240,7,173 
,17,19,206,36,240,15 
480 data 160,0,173,17,19,140,17,19,141 
,16,19,208,2,162,0,173 
490 data 0,220,41,15,168,185,0,19,240, 
8,205,16,19,240,3,157 
500 data 16,19.76,101,250,120,169,18,1 
41,20,3, 169,19,141,21,3,88,96 
510 read 1 1 * , 1 *:1 l*=1 1*+1 *: 1 1 = 1 enC1 1 *) 
520 data laaaf4bbbbcld2bbbelaad2e1af4b 
bbbcld2bbbbelf4claj4bbbcld2bbbbela 
f4bbbbcld2ilh2i1h2i1j4bbcld2bbbbel 
aaaaaaaaaaaaaaaaa 

530 data h2bj3aaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaaaaaaa14glaaaaaaaaaaaaaaaa 
aaaaaaaaaaaaaaaaaaaaaa3aaaa 
540 dim lC14):for i=i to 14:read l(i): 
next:data 64,93,112,110,109,125,85 
,73,74,75,1,40,-1,-40 
550 read mm*:mm=1 en(mm*) 

560 data o4qc.f1gqaoSc.fidqco4*bafgeif 
gafq.cirqc.figqao5c.fïdqcifeqfo4*b 
ag.fi ro5ccf cccqciccco4f f f qfifao5co 
4af aqcc.f 

570 tx*(0)=">t SPACEihoudttSPACE] u tSPAC 
El gereedtSPACE]<":tx*(1)= " tSPACEld 
emonstratiespe1tSPACE]":return 
580 color 0,l:color 4,ll:color 5,5:scn 
clr:gosub 400 

590 doicolor 5,8:scnc1r:co 1or 5,7:char 
1,28,2,"(c)[SPACE31986":char 1,26 
,3,"yprQsoftware":char 1,0,8 
600 print"£2xCRSR-D0WN1I C0M 8]t2xSPACE 
] laattSPACEldetSPACE]1ijn[SPACE3 zo 
tSPACE1 langt SPACE1moge lijkt SPACE1w 
orden":print"tlOxSPACEieet t SPACE]d 
aarbijtSPACElal1et SPACE] tCOM 6]StC 
OM 8]tSPACE]op":print"t14xSPACE]ui 
tgang t SPACElist SPACE1t COM 71W" 

610 print using "t2xCRSR-D0WN1tCTRL 41 
t15xSPACElscoreCSPACE]:tSPACE]#### 
ts:print using "tCRSR-DOWN]tCOM 
3117xSPACEIhoogstet SPACE1 score t SPA 
CE]:t SPACE]#####”;hs:print "t CRSR- 
DOWN] t COM 8]116xSPACE]nivo t SPACE1: 

12xSPACE]1" 

620 print "tCRSR-DOWN]tCOM 6]tl9xSPACE 
]tlOxCOM 61":print "tCOM 61t2xSPAC 
E]spe1ISPACE]startentSPACE]dmvtSPA 
CE1f CTRL 91t SPACE]vuurknopt SPACE]t 
CTRL OjrSPACE] (port[SPACE]2)":pr i n 
t "tCOM 5]12xSPACE]spe1tSPACElafbr 
eken C SPACE 1me t fSPACE J t CTRL 9 J f SPAC 
EJf 7f SPACE ]fCTRL OJ" 


nv = 1;co 1or 5,16:q = 1263:ql = l:j1=0:i 
= 9: 1 =1:m=l:k = 4:rsppos 10:pen”t4":v 
o 1 15 

do:j=joy(2):if jandl28 then exit 
: if jOjl then tron:jl = j:if j = l t 
hen nv=nv+l:if nv>nx then nv=l 
: : if j =5 then nv=nv-l:if nv<l th 
en nv=nx 

: : char 1,23,19,str*(nv):troff 

: i=i+l:if i>4 then tron:i=1:p=ins 
tr("abcdefghijl234”,mid*(11*,1, 1 )) 
:l=t+l:if p>10 then ql=1(p):i=9:e1 
se q-q+ql:poke q,l(p):troff 
: k=k+l:if k>8 then tron:k=0:m*=mi 
d*(mm*,m,l):m=m+l 

: : p=instr("oiq",m*):if p then t 

ron:pen m*:mt=mid*(mm*,m,1):m=m+l: 
if p=l then penm*:m*=mid*(mm*,m,1) 
:m=m+l:else kl=12/p:troff 
: : p=instr(”.*#",m*):if p then m 

*=m*+mid*(mm*,m,1):m=m+l 
: pen m*:k=kl:if p=l then k=k*2/3: 
trof f 

: if m>mm+25 then m=l 

loop until 1 >11:q = 1524:r = l:s=0:1v = 

3:pen"o4q":rsppos 15:vol 4 

if j<128 then dm=-1:gosubl50:e1se 

dm=0: gosubl50:if s>hs then hs=s 

loop 
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Uit Buntschoten ons volgende programma, de heer A. 
Bongiovanni heeft een lichtkrant voor de c 16 gemaakt. 
Hij presteerde het om in een paar regels een goed 
werkende lichtkrant te maken. 


print"[SHIFT CLR][2xH0MEI" 
rem» *********** * ****************** 
**** 

rem* lichtkrant voor cl6/+4 

* 

rem* door f.ten boske 

* 

rem* zelat (c)86 

* 

rem******************************* 

**** 

colorO,1:colorl,2:color4,1:graphic 
4,1 

drawl,54,50to86,50to70,70 

drawl,70,70to54,50 

drawl,64,50to70,28to76,50 

drawl,62,60to58,80to70,69 

drawl,78,60to82,80to70, 69 

charl,10,7,"star":char1,21,7,"soft 

charl,17,7,"*":char1,7,14,"**»*byt 

SPACElf.tenCSPACElboske****" 

getkeya*:graphicO 

forl=ltollOO:next 

d ima* <50) 

forx=ltot:a*(x)="CCTRL 5I":next:t= 
O 

print"CSHIFT CLR][CRSR-DOUN]tCTRL 
2 ]" 

printspc(11)"WC3xSPACE]WC2xSPACE]W 
U[SPACE]W[SHI FT SPACE]W[SPACE]UWW 
printspc(11)"WC3xSPACE]U[SPACE]UC3 
xSPACE]WCSPACE]WC2xSPACE]W 
printspc(11)"WC 3xSPACE3WC SPACE]W[3 
xSPACE]UWWC2xSPACE]U 
printspc(11)"QC3xSPACE]Q CSPACE]Q C3 
xSPACE]Q[SPACE]QC2xSPACE]QC3xSHIFT 
SPACE] 

printspc(11)"QQQ C SPACE]QC2xSPACE3Q 
QC SPACE]QC SPACE]Q C 2x SPACE]Q 
forI=1to599:next:print"C3xCRSR-D0U 
N]" 

printspcCIO)"WC SHIFT SPACE]W[SHI FT 
SPACE]WWCSPACE]C2xSHIFT SPACE1WC2 
xSHIFT SPACE]WWC2xSHI FT SPACE]WWW 
prIntspcCIO)"WCSHIFT SPACE]WCSHIFT 
SPACE]WC SHIFT SPACE]W C SHI FT SPACE 
]WC SHI FT SPACE]W C SHI FT SPACE]WC SHI 
FT SPACE]WCSHIFT SPACE3CSPACE]W 
printspc(10)"WUC2xSHIFT SPACE]WW[2 
xSHIFT SPACE3WWWCSHIFT SPACE]WCSHI 
FT SPACE3WC2xSHIFT SPACE3W 
printspc(10)"QCSPACE3QCSPACE3QCSPA 
CE3QtSPACE3QCSPACE3QCSPACE1QCSPACE 
]QC2xSPACE]Q 

printspc(10)"QCSPACE]QCSPACE]QCSHI 
FT SPACE]Q C SPACE]Q C SPACE]Q C SPACE]Q 



C SPACE]Q C 2xSPACE]Q 


280 for 1 =lto999:next:print"CSHIFT CLR] 


290 print:print:forz=1tolOOO:next 


300 print"C2xSPACE]maximaa1[SPACEI50CS 
PACE]regels." 

310 prInt"C2xSPACE]nIet C SPACE]meer C SPA 
CE]danC SPACE]30C SPACE]tekens C SPACE 
]per CSPACE]regel 

320 print"C2xSPACE]geenCSPACEIkommaCSP 
ACE]of CSPACE]dubbe1 punt. 

330 print"C2xSPACE]naCSPACE]eIkeCSPACE 
]rege1C SPACE](return). 

340 print"C2xSPACE]laatsteCSPACElregel 
CSPACE]<*>. 

350 print"CCRSR-DOWN]C6xSPACE]1C3xSPAC 
E]5C4xSPACE]IOC 4xSPACE]15C 3xSPACE] 
20 C 3xSPACE]25 C 3xSPACE]30 
360 print" 

370 t=t+l:printtjtab(4); 

380 inputa*(t) 

390 1 f a* ( t) = "*"thena* C t) = "CCTRL 2USPA 
CE]":t=t-1:goto460 
400 1f t=50then 450 

410 iflen(a*(t>)<ithent=t-l:goto370 
420 lflen(a*(t))>32thenprInt"teCSPACE] 
lang,opnieuw!SPACE3invoeren.”:t=t- 
1:goto370 

430 ift/6=int(t/6)thenprinttab(19)"CCR 
SR-D0WN3laatsteCSPACElregelCSPACE3 
<s>":goto360 
440 goto 370 

460 print"CSHIFT CLR][4xCRSR-D0WN]" 

470 print"CSPACE 3 UCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCIC SPACE]C SHI FT SPAC 
E 3 

480 printtab(1)"BC35xSPACE 1B 
490 printtab(1)"B[23xSPACE3 C3xSHIFT SP 
ACE]C9xSPACE3B 

500 print"CSPACE]JCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCK 

520 print"C10xCRSR-D0WN]C2xSPACE3onder 
breken:C SPACE]toets C SPACE]’s’CSPAC 
E ] I n 

540 for y=ltot 

550 forx = lto1 en Ca*(y)) 

560 print"[HOME]C6xCRSR-D0WN] 

570 for z=lto80:next 

580 printtab(36-x)"CCTRL 9]";1eft*Ca*( 
y), x) 

590 néxtx 

600 forx=(35-1 en(a*(y)))to4 step-i 
610 print"!HOME]C 6xCRSR-D0WN] 

620 forz=lto80:next 
630 printtab(x)a*(y);"-" 

640 getz*:ifz*="s"then x=4:y=t:s=1:pri 
nt"C SPACE 3" 

650 nextx:ifs=1then 720 
660 forx=ltoIen(a*(y)) 

670 print"!HOME]C6xCRSR-D0WN 3 
680 forz=1to80:next 

690 printtab(4)right*(a*(y),(len(a*(y) 
)-x)) 

700 nextx 

710 getz*:ifz*="s"theny= t:s=l:print"CS 

HIFT CLR]" 

720 nexty:ifs=1then 750 
730 goto540 

750 s=0:print"C4xCRSR-DOWN3[CTRL 4] 


: 
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3 print"!2xSPACE]geheeltSPACE]nieuwe 
CSPACE]tekst.... 1 

0 print"!2xSPACE]ze 1f de[SPACE3 tekst[ 
SPACEiopnieuw...2 

□ print"!2xSPACE]tekst[ SPACE 3 verande 
ren.3 

3 print"C2xSPACEIstoppen. 

.... 4 

3 getz$:onva1(z*)+1goto800,160,460,8 
20 

3 print"[CRSR-DOUN]C2xSPACE]einde[SP 
ACE]1ichtkrant.":for1=ltol200:next 
:co 1or4,2:sys62116 
3 gosub840:goto460 
3 e=l:d=10 

3 print"tSH1 FT CLR]";"[3xSPACE]nr t SP 
ACE]tekst[CRSR-DOUN] 

3 goto900 
3 e=e+10:d=e+9 
3 ife>tthenreturn 
3 goto850 
) ifd>tthend=t 
) forx=etod 

) printtab(1)x;"[2xSPACE]";a*(x ) :nex 
tx 

> print"[2xCRSR-D0WN]t2xSPACE]regei[ 
SPACE]veranderen.... 1 
) print"t2xSPACE]regel[SPACE]toevoeg 
en.2 

) print"[2xSPACE]regeltSPACE]verwijd 
eren... 3 

) print"C2xSPACE]okee[SPACE]zo. 

.4 

I getk*:onval(k*)+l goto980,1ÏOO,110 
O,1320,990 
l goto970 
i goto870 

i print:input"[2xSPACE]regelnr.";r 
i ifr<eorr>dthenprint"[SPACE]";:fors 
p=lto39:print"[SPACE]";:nextsp:pri 
nt"[SPACE]";:gotol010 
| print" 

print"is:[SPACE]"tab C7);a*(r) 

1 input"wordt";a*(r) 
iflen(a*(r))<1thenlOSO 
if len(aXr) >>30 thenl050 
goto850 

ift<50thenll80 

print"[CRSR-DOUN]max1mum[SPACE]aan 
tal[SPACE]regels[SPACE]bereikt.[SP 
ACElbiJ[SPACE]" 

print"toevoeg[SPACE]en/of[SPACE!tu 
ssenvoegen[SPACE]vervalt 
t = t-l 

input"[CRSR-DOWN]toevoegen[SPACE]n 
a(SPACE]we 1k[SPACE]rege 1 nummer:[SP 
ACE]";r 

ifr<e-lor r>d thenprint"[CRSR-UP]" 

;:forsp=lto39:print"[CRSR-UP]";:ne 
xt sp:print"[2xCRSR-UP]":gotol180 
lfr=50then r=49 
forx=ttor+l3tep-l 
a*(xti)=al(x):nextx 
a*(r+ 13 = "[SPACE]" 
print’tSPACEJnieuveCSPACEJregel 
print" 

input"tekst:[SPACE]";a*(r+l> 
ifJen(a*(r+l)3<lthenl250 
iflen(a*(r+13)>30 thenl250 



1200 
1210 
1220 
1230 
1240 
1250 
1260 
' 1270 
1280 


d=d+l:t=t+l 
goto8S0 

input"[CRSR-DOUN]welke!SPACE]regel 
[SPACE]verwijderen:";r 
ifr<eorp>dthen print"[CTRL 8]";:fo 
rsp=lto39:print"[CTRL 2][CTRL 1]"; 
:nextsp:print"[2xSPACE]":gotol320 
print:printtab <13 r;"[SPACE]";a*(r 3 
pr int"[CRSR-DOUN][3xSPACE]zeker[SP 
ACE]weten?[SPACE](j/n3 
inputz* 

lfz*="j"then 1380 
ifz*="n"then 850 
forx=rtot-l 
a$(x3=a*(x+13:nextx 
a*(t)="[SPACE]" 
d=d-l:t=t-l:goto850 
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De datarecorder wordt veel gebruikt voor het opslaan 
van programma’s en data. Een leuke, andere toepas¬ 
sing ervan is er muziek mee opnemen. Geschreven 
door Mare de Hingh. 


"Musicbox" 


Muziek met de Datasette - Commodore 64 


M et wat eenvoudige trucs kan men tonen met de datarecorder op tape 
zetten. Door het bandje vervolgens in een gewone cassetterecorder te 
leggen, kan men dan de opgenomen muziek beluisteren. 


De Commodore-datarecorder werkt 
als het ware digitaal. Daarmee be¬ 
doel ik dat hij de computer alleen 
maar kan doorgeven of er op de 
plaats op de band waar de kop langs 
gaat, wel of geen signaal staat - met 
andere woorden: hoge dan wel lage 
spanning - oftewel 1 of 0. 

De andere kant op werkt hetzelfde: 
de computer kan de schrijf-pin van de 
cassettepoort ‘hoog’ of ‘laag’ ma¬ 
ken. Dit zal resulteren in een hoge of 
lage spanning op de schrijfkop van de 
recorder - wel of geen signaal op de 
band. Alle waarden tussen hoge en 
lage spanning zijn dus uitgesloten. 
Dientengevolge kan men, wanneer 
men muziek naar de datarecorder wil 
sturen, slechts op één volume wer¬ 
ken. Dit beperkt ons enigszins in de 
mogelijkheden, maar er kunnen toch 
aardige resultaten bereikt worden. 

Cassettepoort 

Op pagina 397 van de Reference 
Guide vinden we de verdeling van de 
verschillende pinnen van de casset¬ 
tepoort: 

1 2 3 4 5 6 


A B C D E F 
fig. 1. de cassettepoort. 

Pin: Ty pe: 

A-l GND 
B-2 +5V 

C-3 Cassette Motor 
D-4 Cassette Read 
E-5 Cassette Write 
F-6 Cassette Sense 


54 


Naast een aarde-verbinding en de 5 
Volt-voeding van de recorder zien we 
de lees- en schrijfpinnen en nog een 
tweetal pinnen voor de controle van 
de motor van de datasette. 

De uitgang die voor ons nu het inte¬ 
ressantst is, de cassette write-pin, is 
direct verbonden met de 6510 micro¬ 
processor. 

We kunnen heel gemakkelijk de 
write-pin ‘hoog’ of ‘laag’ maken door 
een 1 resp. 0 op pin P3 van de l/O- 
poort van de microprocessor te zet¬ 
ten. Dit kan door 1 of 0 te poken in bit 
3 van het 1/0-register op adres 1 in het 
geheugen. 

Een toon 

Om een toon te genereren moeten 
we voortdurend wisselen tussen een 
1 en een 0 op de genoemde lijn. 


1 - - - 

0 ___ 

fig. 2. schema van een blokgolf. 

We krijgen dan immers een blokgolf- 
vorm als in fig. 2 

Dat kunnen we gemakkelijk testen 
in basic. Typ het hieronderstaande 
programmaatje over, leg een lege 
cassette in de datarecorder en druk 
op record en play. Run het program¬ 
ma vervolgens. Na een tijdje breaken 
en de recorder stoppen 

Als we het opgenomen geluid nader¬ 
hand met een normale recorder be¬ 
luisteren, horen we een laag gebrom 
:het bewijs dat er inderdaad iets op- 

Commodore Info 4187 


10 POKE 1, PEEK(l) OR 8: REM 
bit 3 = 1 

20 POKE 1, PEEK(l) AND 247: REM 
bit 3 = 0 

30 GOTO 10 

(progr.1.) 

genomen is. Willen we echter hogere 
tonen, dan blijkt dat de basic tekort¬ 
schiet. Voor hogere tonen moeten we 
namelijk vaker per seconde (hogere 
frequentie!) heen en weer springen 
tussen 0 en 1 en daarvoor hebben we 
een hogere snelheid nodig: basic is te 
langzaam! 

De oplossing is machinetaal. Als u 
(nog) niet ingewijd bent in de gehei¬ 
men van de machinetaal, laat u zich 
dan toch vooral niet afschrikken: de 
gebruikte routine is extreem kort en 
behoeft natuurlijk niet perse volledig 
begrepen te worden om toegepast te 
worden in basic-programma’s. 

Machinetaalroutine 

In assembly ziet de benodigde routi¬ 
ne er zo uit: 

0340 LDA $01 
0342 EOR #$08 
0344 STA $01 
0346 JMP $EA7E 

(progr. 2) 

Het enige wat deze routine doet, is bit 
3 van adres 1 inverteren, d.w.z. van 
een 0 een 1 maken, van een 1 een 0 
maken. Door deze routine een aantal 
maal per seconde te laten aanroe¬ 
pen, ontstaat een toon en wel één 
met een frequentie (in Hertz) van de 
helft van dat aantal maal per secon- 





de. (Immers, de routine moet twee¬ 
maal doorlopen worden voor een 
golfcyclus van het geluid.) We zou¬ 
den nu vanuit een basic-programma 
met het SYS-commando de machine- 
taalroutine een aantal maal per se¬ 
conde kunnen aanroepen. Dit doen 
wij echter niet, omdat dit nauwelijks 
sneller zou gaan dan wanneer we ge¬ 
woon poken, zoals in progr. 1. Daar¬ 
om doen we het slimmer en maken 
we gebruik van de zgn. interrupt van 
de computer. 

Interrupt 

Zoals u wellicht weet, wordt zestig 
maal per seconde een routine in het 
operating-system (kernal) doorlopen 
om het toetsenbord te scannen en 
dat soort zaken. Deze routine wordt 
automatisch iedere éénzestigste se¬ 
conde aangeroepen d.m.v. een inter¬ 
rupt. 

Door de zgn. interrupt-vector op ge- 
heugenlocaties 788 en 789 naar onze 
machinetaalroutine te laten wijzen, 
wordt de normale interuptroutine af¬ 
gesneden en wordt in plaats ervan 
iedere éénzestigste seconde onze 
eigen routine aangeroepen. De com¬ 
puter gaat dan - u raadt het al - een 
toon genereren van 60/2=30 Hertz. 
Maar met alleen tonen van 30 Hertz 
kunnen we geen melodieën maken, 
dat is duidelijk, en gelukkig is het dan 
ook mogelijk om de snelheid van de 
interrupt en daarmee de hoogte van 
de toon die gegenereerd wordt te 
variëren door geschikte waarden te 
poken in de registers 56324 en \ 
56325. Een lage waarde geeft daarbij 
een hoge interruptsnelheid, een hoge 


toon, terwijl hoge waardes lage inter- 
ruptsnelheden en dus lage tonen ver¬ 
oorzaken. 

De precieze te poken waarde is 
voor elke willekeurige frequentie te 
berekenen met een constante om- 
rekenigsfactor. Deze blijkt 492630 
te zijn, de helft van de klokfrequentie 
van de C64 (ca. 1 MHz). 

Op deze manier kunnen we een me¬ 
lodietje spelen. 

Wilhelmus 

In een programma, dat de eerste ma¬ 
ten van het Wilhelmus naar de data- 


recorder stuurt, zullen we nu de be¬ 
handelde technieken toepassen. 
Vanaf regel 1000 staat de routine om 
een toon met frequentie F en duur D 
te genereren. Met behulp van de 
REM’s (die u natuurlijk niet hoeft over 
te typen) moet het mogelijk zijn het 
programma te begrijpen en te experi¬ 
menteren met deze aardige toepas¬ 
sing van de datarecorder. 

Mare de Hingh 
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1080 
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WILHELMUS 

REM Wilhelmus 

GOSUB 2000 :REM zet machinetaal in het geheugen 

PRINT"press rec&play":PRINT"en druk op ’n toets" 

GET K$:IF K$="" THEN 120 :REM wacht op toets 

FOR 1=1 TO 16 :REM 16 tonen 

READ F,D :REM lees frequentie en duur van een 

toon uit data vanaf regel 3000 

GOSUB 1000 :REM genereer die toon 

NEXT 1 

PRINT"klaar! stop de recorder" 

END 

REM routine voor toon naar data-recorder 
REM f = frequentie in hertz 
REM d = duur van de toon 
POKE 56333,1 :REM schakel normale 
interrupt uit 

T=492630/F :REM bereken de interruptsnelheid 
H=INT(T/256) :REM high-byte interruptsnelheid 
L=T-256*H :REM low-byte interruptsnelheid 
POKE 56324,L:POKE 789,3 :REM poke bereken 
de snelheid 

POKE 788,64:P OKE 789,3 :REM verander 
interruptvecto r 

POKE 53265,1 1 :REM maak scherm blank voor 
betere opname kwaliteit 

POKE 56333,1 29 :REM start . .interruptroutine, 
de toon begint nu 

FOR P=1 TO D*100:NEXT :REM pauze 
voor duur to on 

POKE 56333 ,1 :REM stop interruptroutine, 
de toon stopt nu 

POKE 53265,27 :REM scherm weer normaal 
POKE 788,49:POKE 789,234 :REM interrupt 
snelheid normaal 

POKE 56333,129 :REM start normale interrupt 
RETURN 

REM lees machinetaal in het geheugen 
FOR 1=832 TO 840:READ X:POKE I,X:NEXT 
: RETURN 

DATA 165,173,8,133,1,76,126,234 
:REM data machinetaal-routine 
REM data tonen (freq., duur) 

DATA 1 96 , 4 , 262 , 4 , 262 , 4 , 294 , 2 , 330 , 2 , 349 , 2 , 294 , 

2,330,4 

*>^ 294 , 2 , 330 , 2 , 349 , 4 , 330 , 4 , 294 , 2 , 263 , 2 , 294 , 

programma 3. 
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Het ingeven van parameters in een zelfgeschreven machinetaalprogramma voor de 
Commodore 64 wordt hieronder uitgebreid behandeld door Rene Janssen. 


PARAMETER-TRANSPORT 


D e Basic-opdracht SYS is niet iets voor de beginner, aangezien er in een 
programma of via een direct commando mee naar het machinetaalni- 
veau gesprongen wordt. 


De opdracht Sys wordt meestal ge¬ 
bruikt om het machinetaalprogramma 
uit te voeren dat begint bij het gege¬ 
ven adres. In sommige program¬ 
ma’s echter komen opdrachten voor 
als: SYS 647,10,199. 

Een ander voorbeeld is de variant op 
de PRINT-AT instruktie: SYS 49152, 
kolom, regel, string. Het rijtje gege¬ 
vens (ook wel parameters genoemd) 
wordt door het machinetaalprogram¬ 
ma zelf verwerkt. 

Hoe dat allemaal gebeurt en hoe je 
parameters aan een zelfgeschreven 
machinetaalprogramma kunt door¬ 
geven, kun je lezen in het volgende 
artikel. 

De USR-funktie 

Zolang je maar 1 parameter nodig 
hebt, hoef je die speciale SYS-op- 
dracht helemaal niet te gebruiken. Je 
kan dan de USR-opdracht toepas¬ 
sen. D.m.v. ‘USR (waarde)’ wordt 
de gegeven waarde naar de accu 
voor reële getallen, FAC, gebracht. 
Daarna wordt het machinetaalpro¬ 
gramma uitgevoerd waarvan het a- 
dres in de adressen $0311 (785) en 
$0312 (786) staat. 

B.v.: Het startadres = 49152; 

POKE 785,0:POKE 786,192. 
D.m.v. 'PRINT USR (kleurcode)’ 
wordt het programma vanaf 49152 


uitgevoerd. De kleurcode wordt in 
FAC geladen. Daarna wordt FAC in 
een positief 16-bits getal veranderd 
($B7F7). De high-byte van dat getal 
gaat naar $15 (21) en de low-byte 
naar $14 (20). Vervolgens wordt de 
low-byte in $14 naar $D020 gebracht 
en het achtergrondscherm veran¬ 
dert in de gegeven kleur. 

Voordat deze routine echter uit¬ 
gevoerd kan worden moet de low- 



byte van het adres (49152) in $0311 
en de high-byte in $0312 geladen 
worden, dus: 

POKE*785,0:POKE*786,192:PRINT 
USR (kleurcode) 

Als i.p.v. ‘PRINT USR (waarde)’, ‘va- 
riabele=USR (waarde)’ wordt ge¬ 


bruikt, wordt de waarde die na het uit¬ 
voeren van de routine in FAC zit, toe¬ 
gekend aan de gegeven variabele. 
B.v. ‘B=USR(23)’. 

Het verwerken van parameters 
Voor meer dan 1 parameter moet de 
speciale SYS-opdracht gebruikt wor¬ 
den. Om de verschillende parameters 
te verwerken wordt gebruik gemaakt 
van bepaalde ROM-routine’s. De be¬ 
langrijkste hiervan zijn de volgende: 

°JSR$AEFD: Deze routine contro¬ 
leert of er een komma in een op¬ 
dracht voorkomt. In de opdracht 
‘SYS adres, variabele’ kan op die 
manier gekontroleerd worden of er 
een komma tussen ‘adres’ en 
‘variabele’ aanwezig is. Is dat niet 
het geval dan krijg je een ‘SYN- 
TAX ERROR’. 

°JSR$AEFA: Deze routine contro¬ 
leert of er een (-teken staat. 
°JSR$AEF7: Deze routine contro¬ 
leert of er een )-teken staat. 
°JSR$AEF1: Deze routine haalt 
een parameter die tussen haakjes 

Stdclt 

B.v.: SYS 49152,(23) 

SYS 2050,(34,456) 

SYS 827,(INT(RND(0)*15)) 
°JSR$AD9E: Deze routine haalt 
een willekeurige parameter. Deze 
parameter kan een string zijn, 
maar kan ook numeriek zijn. 
Numerieke parameters gaan naar 
FRC. Is het een string, dan wijst 
$64/$65 (100/101) naar het adres 








Kj * 
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vanaf waar de lengte en het begin- 
adres van de string opgeslagen 
zijn. B.v.: 

PEEK(101 )*256+PEEK(100)=28 
PEEK(28)=lengte string 
PEEK(30)*256+PEEK(29)=begin 
adres string 
Voorbeelden van SYS-opdrachten 
waar gebruik gemaakt kan worden 
van deze routine zijn: 

SYS 49152,PEEK(832)AND32 
SYS 49152,"DIT IS EEN VOOR¬ 
BEELD" 

°JSR$AD8A: Deze routine haalt 
een parameter en controleert met¬ 
een of deze numeriek is. 

°JSR$AD8D: Deze routine contro¬ 
leert of de binnengehaalde para¬ 
meter numeriek is. De parameter 
moet dan eerst binnengehaald zijn 
met ‘JSR $AD9E’. 

°JSR$AD8F: Deze routine con¬ 
troleert of de binnengehaalde 
parameter een string is. 

°JSR$B79E: Deze routine haalt 
een byte-waarde (0-255) en stopt 
hem in het X-register. 

°JSR$B7EB: Deze routine wordt 
o.a. gebruikt voor de instruktie 
‘POKE adres, waarde’. Het haalt 
een 16- en 8-bits waarde. De 16- 
bits waarde gaat naar $14/$15 
(20,21) en de 8-bits waarde gaat 
naar het X-register. 

°JSR$E1D4: Deze routine wordt 
gebruikt voor de ‘LOAD-en ‘SAVE’- 
opdracht. Het haalt de filenaam en 
hetdevicenummer. 

0 JSR $0073: De CHRGET-routine. 
Deze routine haalt een karakter uit 
een Basic-programma. 

0 JSR $0079: De CHRGOT-routine. 
Deze routine haalt het laatste ka¬ 
rakter, uit een Basic-programma 
dat met de CHRGET-routine is bin¬ 
nengehaald. 

Verwerken van hele getallen 
Stel dat je een machinetaalprogram- 
ma wilt schrijven dat de achter- en 
voorgrondkleur verandert in de door 
jouw gegeven waarden. Je zou dan 
b.v. deze opdracht gebruiken: ‘SYS 
49152,achter,voor’. ‘Achter’ en ‘voor’ 
zouden dan respectievelijk in de 
adressen 53280 en 53281 geladen 
moeten worden. Je kunt dan niet de 
waarde in FAC gebruiken. Tenmin¬ 
ste, niet zonder daar iets aan te ver¬ 
anderen. Er zijn 2 manieren om gehe¬ 
le getallen te krijgen. 

De eerste manier is: 

°< 1 ion a fir^ e waar de binnen met 
JSR $AD9E'. De waarde zit nu in 


LISTING 2 

C000 20 FD AE JSR $AEFD ;staat er een komma? 

20 9E B7 JSR $B79E;haalt waarde (0-255) en stopt hém in X-req 
8E 20 DO STX $D020 ;naar 53280. y ' 

■ - - 20 FD AE JSR $AEFD ;volgende komma. 

C00C 20 9E B7 JSR $B79E ;volgende waarde. 

C00F 8E 21 DO STX $D021 ;naar 53281. 


C003 

C006 

C009 


LISTING 3 

fP A != J £ R $ AEFD istaat er een komma? 

C003 20 9E AD JSR $AD9E ;haalt parameter. 

C006 20 6B E2 JSR $E26B ;Basic-functieSIN. 

C009 20 DD BD JSR $BDDD;verandert FAC in ASCII-strinq. 
C00C 20 IE ABJSR $AB1E ;string printen. 

C00F 60 RTS 


FAC. 

°2 Gebruik ‘JSR $B7F7’. Deze rou¬ 
tine veranderd FAC in een positief 
16-bits getal en stopt die waarde 
in $14/$15. 

De tweede manier is: Gebruik of 
‘JSR $B79E’ of ‘JSR $B7EB’. 

Het volgende voorbeeld heeft deze 
instruktie: SYS 49152,achtergrond, 
voorgrond. 

Hier wordt ‘JSR $B79E’ gebruikt om 
de waarde te halen, waarna die in het 
X-register gebracht wordt. 

Verwerken van reële getallen. 
Om nu getallen als 12.3456 of 
34.234E+12 te gebruiken kun je de 
waarde in FAC wel rechtstreeks ge¬ 
bruiken. Je kunt de betreffende waar¬ 
de nu binnenhalen met: ‘JSR $AEF1 ’ 
‘JSR $AD9E’ en ‘JSR $AD8A'. 

Er zijn ook routine’s die een geheel 
getal in een ’FAC-getal’ veranderen: 
JSR $B395: Deze routine verandert 


kun je hem voor verschillende doel¬ 
einden gebruiken. Je kunt met de 
verschillende FAC-routine’s gaan 
werken om op die manier ingewikkel¬ 
de berekeningen uit te voeren. Je 
kunt ook bepaalde Basic-routine’s 
gebruiken. Hoe ziet b.v. een pro¬ 
gramma eruit, dat de sinus bere¬ 
kent, in machinetaal? (zie listing 3) 
De instruktie is: SYS 49152, waarde. 
Eerst wordt de waarde binnenge¬ 
haald met ‘JSR $AD9E’. De nume¬ 
rieke waarde wordt dan in FAC gela¬ 
den. JSR$E26B’ is de routine van de 
Basic-funktie SIN. De waarde waar¬ 
van de sinus genomen moet worden 
moet dan in FAC zitten. 'JSR $BDDD’ 
verandert FAC in een ASCII-string, 
waarvan het beginadres $0100 is. 
‘JSR $AB1 E' zorgt ervoor dat de 
string afgedrukt wordt op het beeld¬ 
scherm. 


LISTING 4 

C000 20 FD 
C003 20 9E 
C006 86 FB 
C008 20 FD 
C00B 20 9E 
C00E 86 FC 
C010 A6 FC 
C012 A4 FB 
C014 18 
C015 20 F0 
C018 20 FD 
C01B 20 A4 
C01E 60 


AE JSR $AEFD;komma? 

B7 JSR $B79E ;haalt waarde. 

STX $FB 

AE JSR $AEFD;volgende komma. 

B7 JSR $B79E ;volgende waarde. 

STX $FC 

LDX $FC ;x-en y-coordinaat voor PLOT-routine. 

LDY $FB 

CLC 

FF JSR $FFF0 ;Kernal PLOT-routine. 

AEJSR $AEFD;volgende komma. 

AA JSR $AAA4;Basic-instruktie PRINT. 

RTS 


een 16-bits getal in het A- en Y- 
register in een reeel getal. De high- 
byte van dat getal zit in de A en de 
low-byte in Y. 

JSR $B3A2: Deze routine verandert 
een byte-waarde (0-255), die in het 
Y-register zit, in een reeel getal 
Als de waarde eenmaal in FAC zit 


Verwerken van een string. 
Behalve getallen kunnen ook string’s 
verwerkt worden. Ook nu zijn er ver¬ 
schillende manieren om dat te doen 
De instruktie is : 

SYS49152,x,y, "string". 

Dit is de variant op de Print-At routine. 
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Nadat de x- en y- coördinaat d.m.v. 
de PLOT-routine zijn ingesteld, wordt 
er net gedaan alsof de PRINT-op- 
dracht gebruikt wordt (JSR $AAA4). 
Behalve ‘JSR $AD9E’ kan ook de 
CHEGET-routine gebruikt worden om 
een teken binnen te halen. Listing 5 
gebruikt ‘JSR $AD9E’ en Listing 6 de 
CHRGET-routine. 

De instruktie is: 

SYS 49152,kleur, "string". 

Adres $0286 (646) bepaalt de kleur 
van de tekens. Nadat de string met 


‘JSR $AD9E’ wordt binnengehaald 
gebruik je‘JSR $AB21’ om de string 
te printen. Oplettende lezers heb¬ 
ben wellicht gemerkt dat in het Sinus¬ 
programma (listing 3) ‘JSR $AB1E’ 
daarvoor gebruikt werd. Dat komt 
omdat de routine ‘JSR $BDDD’, die 
FAC in een string veranderd, het A- 
en Y-register gebruikt om het begin- 
adres van de string op te slaan. Als 
we bij $AB1 E beginnen worden die 2 
registers weer gebruikt om het begin- 
adres in geheugenplaatsen te zet¬ 
ten die de rest van de routine gebruikt 
om de string te printen. Die geheu¬ 
genplaatsen zijn $64/$65 (zie uitleg 
bij $AD9E-routine). 

Als we ‘JSR $AD9E’ echter gebrui¬ 
ken zit het beginadres al in $64/ $65, 
dus de omzettingsroutine is helemaal 
niet nodig (het mag zelfs niet gebruikt 
worden anders gebeuren er rare din¬ 
gen). We gaan dus verder met ‘JSR 
SAB21’ en de string wordt afgedrukt 
op het beeldscherm in de gegeven 
kleur. 

Dan nu het gebruik van de CHRGET- 
routine, waarbij de instruktie is: 

SYS 49152, letter, aantal keer af¬ 
drukken. 


De routine op $AEFD doet, behalve 
controleren of er een komma staat, 
nog iets: d.m.v. ‘JSR $0073’ haal je 
het teken binnen, dat na de komma 
staat. Dat is in ons geval een letter. 
Met ‘JSR $0079’ wordt die laatste 
binnengehaalde letter in het A-regis- 
ter gebracht en daarna bewaard in 
adres $FB (251). Waarom wordt 
dan daarna de CHRGET-routine aan¬ 
geroepen? 

Dat zit zo: we hebben dan wel een let¬ 
ter binnengehaald, maar de Interpre- 
terweet nu niet wat hij 
ermee aanmoet. Nor¬ 
maal zouden we dan 
ook een ‘SYNTAX 
ERROR’ krijgen. 

Door echter de CHR¬ 
GET-routine aan te 
roepen halen we nu 
de komma binnen (we 
slaan de letter als 
het ware over) die 
daarna meteen door 
de ‘JSR $AEFD’ 
gecontroleerd wordt. 
Vervolgens wordt die 
letter net zolang afge¬ 
drukt tot de gegeven 
waarde d.m.v. ‘DEX’ 
nul heeft bereikt. 

Tot slot nog het ge¬ 


bruik van de routine op $E1D4. 
Zoals je al gelezen hebt wordt 
die gebruikt om de filenaam en het 
devicenummer van de ‘LOAD’- 
,‘SAVE’-en ‘VERlFY’-opdracht te ha¬ 
len. Het laatste programma demon¬ 
streert hoe je het beeldscherm kunt 
saven. Type maar het hele beeld¬ 
scherm vol, type dan ‘SYS 49152, 
"filenaam",8’ (of ‘1’voor cassette), 
haal het scherm weg en type ‘LOAD 
"filenaam",8,1’ (of ‘1,1’ voor de cas¬ 
sette). 

Rene Janssen • 


LISTING 7 


C000 20 FD AEJSR $AEFD 

C003 20 D4 El JSR $E1D4 

C006 A2 E7 

LDX $E7 

C008 A0 07 

LDY $07 

C00A A9 00 

LDA $00 

C00C 85 FB 

STA$FB 

C00E A9 04 

LDA $04 

C010 85 FC 

STA $FC 

C012 A9 01 

LDA $01 

C014 85 B9 

STA $B9 

C016 A9 FB 

LDA $FB 

C018 4C D8 

FF JMP $FFD8 


LISTING 5 

C000 20 FD AEJSR $AEFD;komma? 

C003 20 9E B7 JSR $B79E;haalt waarde. 
C006 8E 86 02 STX $0286 Jetterkleur# 

C009 20 FD AEJSR $AEFD;volgendekomma. 
CQ0C 20 9E AD JSR $AD9E,-haalt string. 

C00F 20 21 AB JSR $AB21;string printen. 


LISTING 6 

C000 20 FD 


C003 

C006 

C008 


20 79 
85 FB 
20 73 


C00B 20 FD 
C00E 20 9E 


C011 

C013 

C016 

C017 

C019 


A5 FB 
20 D2 
CA 
DO F8 
60 


AEJSR $AEFD;komma? 

00 JSR $0079 ;CHRGOT-routine. 

STA $FB ;letter naar 251. 

00 JSR $0073 ;CHRGET-routine. 
AEJSR $AEFD ;volgendekomma. 

B7 JSR $B79E jhaalt waarde. 

LDA $FB ;haalt letter. 

FF JSR $FFD2 ;Kernal CHROUT-rout 
DEX iverminder waarde. 

BNE$C011 
RTS 


na& eS 


teil ® 0 

OUDE NUMMERS 


Hieronder volgt een overzicht van de 
verschenen en nog beschikbare nummers. 


Jaar 

Aantal verschenen 

nummers 

Nog beschikbaar 

1984 

5 

niets 

1985 

10 

alle nummers 

1986 

9 

alle nummers 


Reeds verschenen nummers zijn na te bestellen. 
Maar, helaas, NIET per brief, kaart of telefonisch. 
We leveren die oude nummers alleen bij 
vooruitbetaling op onze giro 1585491 t.n.v. Sala 
Communications/SAC te Blaricum of op onze 
bank in België BBL nr. 310050602562. 

De prijs is ƒ 6,75 per nummer 
(dus aangeven welk nummer). 
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Computer Aided Design is niet meer uit de moderne architectuur en industrie weg te 
denken. Van de bouwtekeningen voor uw zomerhuisje, electronische circuits voor 
audio-apparatuur, lenzenstelsels voor camera’s tot spaceshuttles, alles rolt tegen¬ 
woordig uit de door CAD-software gestuurde computers. Vroeger was CAD een toe¬ 
passing voor grote systemen. De laatste tijd is de CAD-techniek echter in een stroom¬ 
versnelling geraakt en verschijnen steeds meer systemen voor de kleine kantoor- en 
microcomputergebruiker. Ook voor de Commodore C-128 (en natuurlijk de Amiga en 
CBM PC’s) zijn inmiddels een aantal CAD-p'akketten beschikbaar gekomen. 


CAD op de C-128 


Een kennismaking met Computer Aided Design 


C AD ging van mainframe naar minicomputer en van minicomputer 
naar microcomputer. Een C-128 is uiteraard iets anders dan een PC. 

CAD op de Commodore kan daarom nooit zo uitgebreid zijn als op een 
groter systeem, maar als introductie tot de CAD-techniek is een Commo- 
dore-huiscomputer zo gek nog niet. 

daarbij naast kantoor-CAD zeker 
geen slecht figuur. 

Wat is CAD? 

Achter het begrip Computer Aided 
Design schuilt veel meer dan alleen 
het maken van technische tekenin¬ 
gen. Na installatie gaat voor de ge¬ 
bruiker een geheel nieuwe wereld 
open van grafisch ontwerpen, illustra¬ 
ties (art work, dia’s, overhead- 
sheets) stroomdiagrammen, bedra- 
dingsschema’s, layout van formulie¬ 
ren, bouwtekeningen, spreadsheet 
entekstverwerkings-toepassingen. 
Betrekkelijk nieuw voor de Amiga zijn 
de simulaties aan de hand van teke¬ 
ningen op een CAD-systeem, die er 
voor zorgen dat een klant op de 
monitor kan bekijken hoe zijn toe¬ 
komstige bungalow of fabriek er uit 
komt te zien. Deze mogelijkheden 
hangen uiteraard van de hard- en 
softwareconfiguraties af, maar zelfs 
met een eenvoudig Commodore XT- 
tje of een C-128 en een goedkoop 
CAD-pakket kan menigeen al uit de 


Wij zien CAD op de Commodore C- 
64 en C-128 daarom als leerpakket¬ 
ten die de hobbyist en student de mo¬ 
gelijkheden van CAD laat zien. Bo¬ 
vendien zijn een aantal tekeningen 


op kleinere schaal, bijvoorbeeld de 
bouwplannen voor een schuurtje of 
een enkel mechanisch onderdeel, 
best bruikbaar. Huiskamer-CAD slaat 
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voeten. De popularising van de PC 
en de huiscomputer heeft CAD in 
haar kielzog meegezogen. Werd 
CAD in het verleden door specialisten 
op een mini- of mainframe-compu- 
ter beoefend, tegenwoordig is er 
geen sprake meer van eilandvorm¬ 
ing, want iedereen kan zelfstandig 
met de eigen PC aan de slag. 

CAD is in feite niet meer dan met be¬ 
hulp van de computer architectoni¬ 
sche en industriële ontwerpen maken 
op het beeldscherm. Alhoewel de 
computer een deel van de werkzaam¬ 
heden van de ontwerper overneemt, 
kan niet iedereen zomaar de prach¬ 
tigste ontwerpen maken, want met 
CAD ben je nog geen geschoold 



Fill-patronen, schaduweffecten en 
het simuleren van 3D. 

Vele CAD-pakketten beschikken zelf 
over complete symbool- en figuur- 
bibliotheken met huisje, boompje, 
beestje en vele standaard industriële 
vormen. Ook zijn er dikwijls verschil¬ 
lende fonts ingebouwd voor het op 
attractieve wijze verduidelijken van 
de verschillende onderdelen van het 
ontwerp. 

Zoom en scrollcommando’s maken 
het mogelijk om een veel groter ont¬ 
werp te maken dan op het monitor- 
scherm past en details voor nauw¬ 
keurige bestudering en correctie uit te 
vergroten. 

CAD-programma’s zijn ‘objected-ba- 


kelijk eenvoudig door te voeren. Ge¬ 
woon de oude tekening inladen, de 
wijzigingen aanbrengen en een 
nieuw up-to-date ontwerp rolt uit de 
plotter. Kortom, CAD staat borg voor 
een snellere en efficiëntere bedrijfs¬ 
voering. 


CAD-toepassingen kunnen in 
veel gevallen de veiligheid aan- 
merkelijk vergroten. _ 

In de industrie wordt CAD veel ge¬ 
bruikt voor het electronische testen 
van het gemaakte ontwerp. Simulatie 
van stress en andere ontwerp-on- 
vriendelijke factoren zoals hitte, druk, 
wind en golven maken een tijdige 


CAD-toepassingen bestrijken het gehele gebied tussen schematisch ’overall-beeld’ en gedetailleerd precisiewerk. 



ontwerper. CAD-pakketten helpen de 
(on)ervaren gebruiker gelukkig wel 
op tal van manieren. Er is altijd 
sprake van een of ander coördina- 
ten-systeem dat de juiste afmetin¬ 
gen en dimensies (automatisch) vast¬ 
legt. Een schaalverdeling helpt bij het 
bepalen van de juiste maten, zodat 
de tekening later qua schaal exact 
met de werkelijke afmetingen over¬ 
eenkomt. 

Ook als je met een potlood nog geen 
rechte lijn op papier kunt krijgen, 
valt er met eenvoudige CAD- toepas¬ 
singen nog wel iets te beginnen. De 
software tekent lijnen en stan¬ 
daardfiguren of -vormen automa¬ 
tisch na het invoeren van de bij¬ 
behorende coördinaten. Lastige veel¬ 
hoeken, circels, bochten, en lood¬ 
rechte hoeken behoeven dus geen 
tekenprobleem meer te zijn. Hetzelf¬ 
de geldt voor het aanbrengen van 


sed’. Dat wil zeggen dat de softwa¬ 
re de verschillende tekenobjecten 
niet als een collectie beeldpunten 
(pixels) behandelt, maar als een 
vaste vorm die over het scherm 
verplaatst, vergroot/ verkleind, 
geroteerd, gespiegeld, vervormd, of 
gedupliceerd kan worden. 

De voordelen 

Computer Aided Design biedt ten op¬ 
zichte van de conventionele teken¬ 
tafel vele voordelen. Een vergaande 
standaardisatie verhoogt de nauw¬ 
keurigheid van de tekeningen en ge¬ 
bruikt steeds dezelfde tekensym¬ 
bolen. 

Daarmee worden de individuele ver¬ 
schillen tussen de verschillende tech¬ 
nische tekenaars verminderd en ont¬ 
staan ontwerptekeningen met een 
hoge consistentie en goede kwaliteit. 
Veranderingen zijn snel en betrek- 


aanpassing van het ontwerp moge¬ 
lijk. Constructiefouten komen nu zon¬ 
der het gevaar voor mensenlevens 
aan het licht. Een andere aantrekke¬ 
lijke optie is het testen van reeds be¬ 
staande constructies op toekomstige, 
onvoorziene, belastingen. Bijvoor¬ 
beeld een brug die voor 10-tonners 
gemaakt werd en nu 20-tonners moet 
torsen. Men noemt deze testmethode 
wel Finite Element Analyses. In de 
ruimte worden een aantal draagcoör- 
dinaten opgetekend en daarna vol¬ 
gens het ontwerp tot een ruimtelijke 
structuur aangekleed. Nu worden met 
een analyseproggramma krachten op 
deze constructiepunten uitgeoefend 
en de (mogelijke) gevolgen daarvan 
doorgerekend. 

Tot slot noemen wij nogmaals de gro¬ 
tere toegankelijkheid van CAD-syste- 
men voor de niet-technische teke¬ 
naar. 
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De basisconfiguratie 
Een C-128 computer met bijbe¬ 
horende software alleen is niet vol¬ 
doende voor het bouwen van een 
CAD-configuratie. Daar komt heel 
wat meer bij kijken. In het algemeen 
bestaat een thuis- of school-CAD- 
systeem uit de volgende componen¬ 
ten: 

• Een C-128 met floppy disk en 
voldoende vrij RAM. Voor gede¬ 
tailleerde ontwerpen is een RAM- 
uitbreiding tot 256K wenselijk. 


Binnenkort komt ook een harde 
schijf voor de C-128 en C-64 be¬ 
schikbaar en die kan heel wat 
CAD-data aan. 

• Een goede HI-RES monitor is 

vrijwel onmisbaar. Er is keuze uit 
monochroom- of kleurentypen. 
Een kleurenmonitot is aanzienlijk 
duurder, maar maakt het beeld 
door kleurschakeringen en kon¬ 
trasten er wel duidelijker en over¬ 
zichterlijker op. 


• Een CAD-pakket dat aan de ei¬ 
gen eisen voldoet. Niet iedereen 
gebruikt CAD voor hetzelfde doel 
en in vele gevallen gaat het zelfs 
om meerdere toepassingen. Net 
als elke andere software-aan- 
koop is het van groot belang om 
een prioriteitenlijstje te maken. 
Aan toeters en bellen heeft de 
gemiddelde gebruiker niet 
zoveel. Wel aan een gebruiks¬ 
vriendelijk pakket dat precies 
doet wat het moet doen, en nog 
redelijk geprijsd is ook. Het hier 


CADPAK-128 

Het Britse softwarehuis Adamsoft heeft onlangs het HI- 
RES ontwerp- en tekenpakket CADPAK-128 op de 
markt gebracht. Dit disk-based CAD-pakket tekent 40- 
koloms grafische beelden op de Commodore monitor 
en biedt printerdrivers voor 640 x 360 dots hardcopies. 
De gebruiker heeft de keuze uit twee displayscreens: 

° Het Main Screen van 640 x 360 pixels. De 
werkelijke resolutie in deze display-modus bedraagt 
320 x 200 pixels, maar de gebruiker heeft gewoon 
een twee maal zo groot schermoppervlak tot zijn/ 
haar beschikking. 

0 Het gewone scherm van 320 x 200 pixels. 

Via het screen window (beeldvenster) kunnen objecten 



vrijelijk tussen de beide displays gekopieerd worden. 
Het tekenen zelf kan met de cursortoetsen, een muis of 
een lichtpen. De lightpen-optie is zeker de moeite 
van het overwegen waard daar het gebruikersgemak, 
snelheid en de mogelijkheden van de software er aan¬ 
zienlijk mee vooruitgaan. Het aansluiten van de pen 
ging vrijwel probleemloos, gewoon een kwestie van in¬ 
pluggen, evenals het instellen met behulp van het 
lightpen-menu. 

CADPAK-128 biedt de gebruiker de volgende moge¬ 
lijkheden: 

“Overlay en printscaling. De grootte van de 
hardcopy kan door de gebruiker vrijelijk ingesteld 
worden. Via overlays zijn behoorlijk gecompliceerde 
constructietekeningen mogelijk. 

“Volledige menusturing. 

“Saven van gemaakte tekeningen in BASIC en 6502 
machinetaal. 


“Exact scaled output. De uitgedraaide tekening is 
precies op schaal. Naar keuze in (centi) meters, 
kilometers en inches. De schaal wordt tijdens het 
initialisatieproces vastgelegd. Verder draagt deze 
optie er zorg voor dat cirkels ook als cirkels en niet 
als eieren afgedrukt worden. 

°Het object management systeem (OMS) hanteert 
beelden van 16x16 pixels op het normale scherm. 
De gebruiker kan deze objects voor latere toepas¬ 
singen saven. Er kunnen maximaal 104 OMS-ob- 
jects tegelijk gebruikt worden. Onder het OMS val¬ 
len ook enkele standaard-bibliotheken op de sys- 
teemschijf met onder andere kaarten, meetkundige 
figuren en electronische symbolen. 

“Templates zijn lijntekeningen die voor later gebruik 
gesaved kunnen worden. Zo kunt u de bibliotheek 
zelf verder uitbreiden. Het bijzondere van de 
templates is dat zij weer in andere tekeningen inge¬ 
bouwd kunnen worden. Templates zijn vanuit 
BASIC aan te roepen en zo ook in zelfgemaakte 
programma’s in te bouwen. 

“dupliceervenster. Via het scherm-venster (window) 
kan de ontwerper een object kopiëren, roteren of 
spiegelen en daarbij ook nog in grootte wijzigen. 
“Drie Fonts met tekst in vier verschillende grootten 
en 3D-letters. Met de object editor kunnen des¬ 
gewenst nieuwe Fonts ontworpen worden. 

“Alle gebruikelijke standaard tekentechnieken. 
“Zeven verschillende fill-patronen bestaande uit 8 x 
8 pixels. 

“De Try Again-functie die het laatst gegeven com¬ 
mando ongedaan maakt. 

“Een 86-pagina’s tellende duidelijke Engelse ge¬ 
bruiksaanwijzing met tal van lessen en voorbeel¬ 
den. 

“Full printer support voor Commodore seriële en 
parallel Centronics printers. Helaas worden er maar 
enkele plotters ondersteund! Eén van de weinige 
nadelen van dit CAD-pakket. 

CAD op de C-128 is nu voor iedereen bereikbaar. Ver¬ 
wacht echter geen professionele kwaliteit, maar wel 
bruikbare en vooral leerzame resultaten. En om de prijs 
hoeft u het echt niet te laten. 

CADPAK-128 kost rond de ƒ 125,-. Daar komt de 
prijs van de lightpen nog bij. 
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Een andere CAD-toepassing is het tekenen van electronische schema's. 


besproken CADPAK-128 voldoet 
aan de meeste van deze eisen. 

• Input-devices. Het tekenen met 
een CAD-pakket kan geschieden 
met tal van invoerapparatuur of 
"stuurwijzers". Voor serieus ge¬ 
bruik zijn de cursortoetsen van 
het keyboard eigenlijk totaal on¬ 
geschikt. Zelfs als tijdelijke nood¬ 
oplossing. Vrijwel elk CAD-pak- 
ket werkt met een muis. Helaas 
geven deze digitale knagers nog¬ 
al eens last. Onbetrouwbare 
overbrenging, slechte compati¬ 
biliteit met hard- en software en 
het crashen van het systeem bij 
het per ongeluk uitvoeren van 
een verboden manoevre vormen 
slechts een kleine greep uit de 
vele gruwelen waarmee de begin¬ 
nende CAD-man/vrouw gecon¬ 
fronteerd kan worden. Dat hoeft 
echter niet als men van meet af 
aan met een goede C-128 com¬ 
patibele muis en stuursoftware 
start. 

Behalve muizen is er wat de 
stuurwijzers betreft nog keuze uit 
lichtpennen, graphic tablets, joy¬ 
sticks en track/joy-ballen. Elk de- 
vice heeft zo zijn eigen enthou¬ 
siaste aanhangers/boe-roepers, 
voor- en nadelen, en (on)moge- 
lijkheden. Het is moeilijk om 
hierin verantwoord te adviseren. 
Dikwijls vindt u in het manual de 
nodige aanbevelingen en afra¬ 
ders die een verstandige keuze 
vergemakkelijken. 

• Enkele CAD-pakketten onder¬ 
steunen scanners en digitizers. 
Daarmee kunnen al bestaande 
ontwerpen in het CAD-systeem 
ingevoerd en gewijzigd worden. 
Een nuttig hulpmiddel voor de 


bouwkundig- of industrieel-teke- 
naar die nog een kast vol oude 
ontwerpen had liggen of het re- 
klamebureau dat bestaande af¬ 
beeldingen in een nieuwe cam¬ 
pagne wil integreren. Ook voor 
de C-128 en C-64 zijn met name 
in Duitsland diverse scanners en 
digitizers met tal van artistieke 
en CAD-mogelijkheden te koop. 

• Voor het maken van perfecte 
hardcopies komen zowel plot¬ 
ters, printers als beeldrecorders 
in aanmerking. Van oudsher is 
de plotter het geëigende teken¬ 
instrument voor CAD/CAM-toe- 
passingen. Een goede plotter 
kan een zeer hoge grafische re¬ 
solutie met een perfecte afdruk- 
kwaliteit bereiken. Voor een plot¬ 
ter geldt in feite hetzelfde als 
voor de monitor. Een inferieur 
model haalt niet uit het systeem 
wat er in zit. Behalve papieren 
hardcopies kunnen de meeste 
plotters ook transparante folies 
(overheadsheets) beschrijven. 
Voor de Commodore is er keuze 
uit de, eigenlijk niet serieus te ne¬ 
men, op papierrol schrijvende 
1520 en aanverwante plotters 
waarvan het papierformaat veel 
te klein is en de redelijk geprijs¬ 
de Comx PL-80. 

Wie niet zo aan de optimale kwali¬ 
teit tilt en even snel een redelijk tot 
goed afdrukje wil uitdraaien is bij een 
24-naalds kleuren-matrixprinter of 
een goede inkjet-printer aan het 
juiste adres. Een alternatieve keuze 
is bijvoorbeeld de nieuwe Commodo¬ 
re MPS 2000 C kleurenprinter. De 
moderne printers zijn grafisch heel 
wat mans, maar kunnen nog niet echt 
aan de plotter tippen. 


• Koppeling aan een database. 

Met behulp van een database 
kan een schat aan grafische en 
alfanumerieke gegevens aan het 
CAD-ontwerp gekoppeld worden. 
De dienst publieke werken van 
een gemeente kan zo bijvoor¬ 
beeld het rioleringssysteem in 
kaart brengen en bij alle buizen 
de diameter, diepte, gebruikte 
materialen, ouderdom, onder¬ 
houdsgevoeligheid, de bij onder¬ 
houd af te sluiten gedeeltes e.d. 
vermelden. 

De mogelijkheid nu ook op de Com- 
modore-machines CAD-toepas- 
singen te laten draaien, betekent op¬ 
nieuw een grote technische verbete¬ 
ring. Zoals eigenlijk het afgelopen 
jaar al vaak is voorspeld, blijkt in de 
praktijk de hobby-sector en de pro¬ 
fessionele markt inderdaad steeds 
dichter naar elkaar toe te groeien. • 

HSC/pal 2 
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HET 

ONMOGELIJKE 

BELASTINGPROGRAMMA 


door Rob Bakker 


Zelfs een Minister van Financiën heeft wel eens 
een zwak moment. Op een avond, nadat de spruit¬ 
jes met komkommer en radijsjes slecht waren 
gevallen, besloot hij dat de belastingaangifte van 
iedere burger vereenvoudigd kon worden. Dat sloeg 
in. 

Om de zaken voortvarend aan te pakken werd er 
een commissie opgericht die onderzocht hoe de 
belastingaangifte vereenvoudigd diende te wor¬ 
den. De snelheid bleef erin, dus reeds na een jaar 
kon de commissie de oplossing al rapporteren: de 
belastingaangifte moest gecomputeriseerd worden. 
Geef iedere belastingplichtige een Belasting- pro¬ 
gramma waarmee hij fluitend zijn formulier kan in¬ 
vullen. Dat programma moest het mogelijk maken 
dat iedereen precies snapte hoe het biljet ingevuld 
moest worden. Dat sloeg nog meer in. 

Om de snelheid erin te blijven houden werd er 
een prijsvraag uitgeschreven voor verkiezing van 
Bouwmeester van het Belastingprogramma. Ieder¬ 
een wist dat het natuurlijk onmogelijk was om de 
belastingaangifte te vereenvoudigen, maar alle pro¬ 
grammeurs van naam dongen toch mee naar de 
titel. Behalve de onsterfelijkheid en een dikke kans 
op een Nobelprijs, zat er aan die opdracht ook 
een leuk bedrag verbonden van een paar miljoen. 
Een zwak moment van een Minister van Finan¬ 
ciën staat immers gelijk aan een bui van hysterisch 
geld uitgeven bij iedere andere minister. 

De top-ontwerpers die zich normaal bezighielden 
met ordinaire zaken als het SDI - Star Wars - com- 
puter-programma zagen de nieuwe uitdaging en 
lieten de ruimte verder over aan de Russen. 

Rob Bakker is schrijver van boeken en verhalen. 
Voor Commodore info maakt hij een serie korte 
verhalen, waarbij de computer in een humoris¬ 
tisch, maar soms meedogenloos daglicht wordt 
geplaatst. 


Iedereen begreep dat hier de kans lag om in alle 
geschiedenisboekjes te komen. En wat was er 
mooier dan de gehele mensheid te helpen met een 
Begrijpelijk Belastingprogramma? De uitvinding 
van de penicilline was leuk, maar genezen van on¬ 
begrijpelijke aanslagen is nog veel mooier. 

Uit de vele duizenden inzenders werd er met 
grote snelheid reeds binnen het jaar eentje uit¬ 
verkoren, wiens ontwerp de jury voldoende 
aansprak. Het was een jongentje van zestien jaar, 
dat nog nooit eerder een belastingbiljet had 
hoeven invullen. Zodoende had hij de verfrissende 
creativiteit gehad om de problematiek ongedwon¬ 
gen te benaderen. De blik van iedere andere goed¬ 
betaalde programmeur was immers zo vertroebeld 
door jarenlang zoeken naar constructies om de 
belastingen te ontwijken, dat ze de materie alleen 
nog maar vanuit het meest ingewikkelde 
standpunt konden benaderen. 

Het uitverkoren ventje kreeg een eigen kantoortje 
en per dag twee bonnen voor de kantine. Na een 
maand waren drie printers doorgebrand, en vier 
computers geheel waanzinnig geworden. Intel 
wachtte ongeduldig met het uitbrengen van Chip 
486 om die alsnog aan de eisen van het nieuwe 
belastingprogramma aan te passen. Het was 
duidelijk dat daarmee de Japanners een dodelijke 
slag toegebracht kon worden in de internationale 
concurrentie. 

Na een maand en drie dagen kon het ventje het 
Belastingprogramma presenteren. (De laatste drie 
dagen waren nodig om de handleiding van 1004 
pagina’s terug te brengen tot een velletje A4. Ex¬ 
clusief garantiebepalingen. Het was echt een heel 
slim ventje.) 

Hij werd welwillend ontvangen door de Minister 
van Financiën, die hem een glas coke presen¬ 
teerde (verantwoord onder Post Representatie 24 B 
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art. 3, tweede lid, boeknummer 725387) en die ver¬ 
volgens het programma doornam. 

Tja’, zei de Minister na twee minuten (het was 
een kort progamma). ’Het is inderdaad gelukt.’ Maar 
de Minister keek er erg ongelukkig bij. ’Weet je’, 
zei hij vertrouwelijk tegen de knul,’dat onze defen- 
sie-inspanningen ieder jaar 3 procent stijgen? De 
Rus, begrijp je wel?’ 

Het financieren van een beetje oorlog kost al gauw 
heel wat, begreep de jeugdige programmeur. 

’En de kosten voor sociale zaken: gestegen met maar 
liefst negen procent’, riep de Minister. 
Medemenselijkheid kost inderdaad niet niets, 
snapte de jongen. 

’En dan de post Representatie: gestegen met 
85,34678%!’ gilde de Minister. Iedereen weet dat 
zoiets onvermijdelijk is. 

De Minister ging verder. ’Als ik nu naar vraag 3b 
kijk van ons Eenvoudige belastingprogramma, dan is 
die nu wel erg duidelijk geworden...’ De Minister 
pauzeerde onheilspellend. 

’Vroeger verdienden we alleen al op vraag 3b 184 
miljoen. Maar nu...’, de stem werd schel,’ is die 
vraag zo duidelijk geworden dat iedereen weet hoe 
die hem goed moet invullen en dat gaat ons 340 mil¬ 


joen 178 duizend, 64 gulden en 36 cent aan be¬ 
lastinginkomsten schelen.’ 

De Minister keek radeloos. ’Hier vraag 18: koch¬ 
ten we vroeger twee Walrussen voor. Nu gaat ons 
dat 530 miljoen, 194 duizend, 32 gulden en 54 
cent kosten.’ De Minister was bleek weggetrokken. 
’Geen mens zal nog uit onwetendheid teveel geld 
gaan betalen en het gevolg is dat de belastingen om¬ 
hoog moeten en dat wil toch niemand? Hoe moet het 
anders met de Rus, onze medemenselijkheid en 
erger nog: onze representatie?’ Driftig veegde de 
minister een glas van tafel (Post Rampenplan, 1 
ste artikel, lid 3, boekno. 007). 

’We praten er niet meer over’, zei de Minister, 
stak de floppie met het programma in zijn zak (je 
kon nooit weten voor privégebruik) en stuurde de 
jongen weg. ’U krijgt uw honorarium nog wel’, riep 
hij vals lachend aan de deur. 

Het ventje kreeg op papier zijn vijf miljoen gulden 
salaris, tegelijk met een aanslag over dat bedrag. Na 
invulling van de niet-vereenvoudigde vragen, bleek 
hij nog drie jaar lang een krantenwijk te moeten 
nemen om de aanslag van 101% over zijn verdiende 
honorarium (reeds ingehouden volgens artikel 36) te 
kunnen voldoen. • 


Merk-diskettes 

misschien betaalt u wel véél te veel 
bi j uw huidige computer¬ 
en su D Dlies-leverancier.... 


5 Vi "-diskettes 

3M-2D 

Nashua-2D 

Select-2D 

prijs p. 10 st. 

bij afname 30 st.: 

f 40,- 

f 25,— 

f 23,— 

„ 50 st.: 

f 38,- 

f 23,— 

f 21,- 

„ 100 st.: 

f 35,— 

f 21,- 

f 19,— 

3V2 "-diskettes 

3M-1D 

3M-2D 

Nashua-1 D 

prijs p. 10 st. 

bij afname 30 st.: 

f 60,— 

f 80,— 

f 50,— 

„ 50 st.: 

f 55,— 

f 75,— 

f 47,- 

„ 100 st.: 

f 50,— 

f 70,— 

f 45,— 

5V4” high-density 

voor IBM/AT 

3M 

Nashua 

Select 

prijs p. 10 st. 

bij afname 30 st.: 

f 75,— 

f 70,— 

f 65,— 

„ 50 st.: 

f 70,- 

f 65,- 

f 60,- 

„ 100 st: 

f 65,— 

f 60,— 

f 55,- 


' vracht " 


Nashua-2D Select-ID Select-2D 


f 60,— 
f 55,— 
f 50,— 


db computersupplies bv 

Ook gevestigd in Leeuwarden: Oostergrachtswal 1 - Telefoon 058-155310 



Harderwijk 
Luttekepoortstraat 2 
Telefoon 03410 - 23294 
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o Basic Min 

Een rubriek van Nico Baaijens me 

Het heeft klachten geregend de laatste weken over de BASIC- miniatuurtjesrubriek. Niet over de in- 
houd of over de kwaliteit, maar over het feit dat deze, kennelijk zeer geliefde rubriek twee keer niet 
in de Commodore Info heeft gestaan. Laten we hopen dat de PTT niet nogmaals de domme fout 
begaat om mijn diskette met miniatuurtjes-kopij zoek te maken. 



I n de stapel brieven van lezers/programmeurs zaten 
er enkele, die meenden dat de rubriek niet is ver¬ 
schenen wegens gebrek aan inzendingen. Deze men¬ 
sen zijn onmiddellijk in het toetsenbord geklommen 
en hebben miniaturen ingezonden. Laat dit goede 
voorbeeld goet doen volgen, hoewel we tot nu toe ge¬ 
lukkig geen gebrek aan kopij hebben. Ook nu weer 
moet ik met mijn twee Info-paginaatjes woekeren. 

Schermeffecten 

Leo M.H. Delhey uit Bladel houdt ervan om de aandacht te 
trekken via het beeldscherm. Hij ontwikkelde een horizon¬ 
tale en vertikale schermvuller, die als echte eyecatchers bruik¬ 
baar zullen zijn. 

10 A=1524:F=0 

20 B=0:C=0:D=0:K=81 

30 POKEA.K 
40 B=B+1 :C=C-1 

50 D=A+B:E=A+C 
60 K=K+6:IFK87THENK=81 
70 POKED,K:POKEE,K 
80 IFB=500THEN100 
90 GOTO40 
100 PRINT"hftClr/Home" 

10 X=0:C=0:F=0 

20 FORY=0TO480STEP40 

30 GOSUB150 

40 Y=-Y 

50 GOSUB150 

60 Y=-Y 

70 NEXTY 

80 IFX=20THEN180 

90 C=C+1 

100 IFC=3THENC=1 

110 IFXTHENX=-X:GOTO130 

120 IFC=2THENX=-X:GOTO20 

130 X=X+1 

140 GOTO20 

150 POKE1523+Y+X.42 

160 IFK=16THENK=0 

170 RETURN 

Erg aardig vond ik het titelscherm van ’Grovo Vision Rotter¬ 
dam’. De inzending is van David de Vos (16) uit Rotterdam, 
die een blits titelscherm samenstelt met van boven naar 
beneden vallende letters. Probeer het eens: 

10 DIMU(100) 

20 POKE53280,0:POKE53281,0 

30 PRINTCHR$(147) 

31 PRINTTAB(8)"ZEVEN MAAL CRSR DWN" 

32 FORT=0TO7:SYS59765:FORR=0TO250: 

NEXT :NEXT40FORK=8TO29 


50 READU(K) 

60 FORT=0TO6 
70 POKE1024+K+T*40,U(K) 

80 FORN=0TO50:NEXT 
90 POKE1024+K+T*40,32 
100 NEXT 

110 POKE1024+K+T*40,U(K) 

120 NEXT 

130 DATA7,18,15,22,15,45,22,9,19,9,15,14 
140 DATA45,18,15,20,20,5,18,4,1,13 

Screenfill Special is het beeldschermeffect van Bas Ording uit 
Blaricum: 

10 A=0:B=0:C=54272:D=160 

20 FORT=1024+A+BT01063-A+BSTEP1 . 

30 POKET,D:POKET+C,RND(1 )*255:NEXT 
40 FORT=1103-A+BT01983-A-BSTEP40 
50 POKET,D:POKET+C,RND(1 )*255:NEXT 
60 FORT=2023-A-BTO1984+A-BSTEP-1 

70 POKET,D:POKET+C,RND(1 )*255:NEXT 
80 FORT=1944+A-BT01064+A+BSTEP-40 
90 POKET,D:POKET+C,RND(1 )*255:NEXT 
100 IFATHENA=A+1 :B=B+40:GOTO20 

En dan hebben we ook nog een deinend beeld van E.A. van 
den Bos uit Baarn: 

10 FORX=0TO76:READA:POKE50000+X,A:NEXT 
20 SYS50000 

30 DATA120,169,198,133,251,165,251,141, 

22.208.198.253.208 

40 DATA6,169,10,133,253,198,251,165,251, 

201 191 240 13 

50 DATA230,252,230,252,173,18,208,197,252, 

208,249,240 

60 DATA222,169,193,133,251,165,251,141,22, 

208.198.253.208 

70 DATA6,169,10,133,253,230,251,165,251,201, 

200,240,193 

80 DAT A230,252,230,252,173,18,208,197,252, 

208,249,240,222 

Games 

’Met dit spelletje is het onmogelijk om te winnen’, schrijft 
Laurens van Kooy (16) uit Straatsburg in Frankrijk. Het is een 
zeer compact geschreven NIM-variant met als spelregel dat 
wie de laatste lucifer pakt, heeft verloren. Ónmogelijk om te 
winnen is dit spel niet, maar wel erg lastig. 

1 PRINT"hft Clr/HomeWie de laatste pakt heeft 
verloren":S=21 

2 FORX=1TOS:PRINT"l";:NEXT :PRINTTAB(21)"ER 
ZIJN ER NOG"S" 

3 INPUT-HOEVEEL (1,2 OF 3)";A:C=4-A:IFAINT(A) 
ORAORA3THEN3 

4 PRINTTAB(22)"IK PAK 


68 


Commodore Info 4187 



Latuurtjes o o >jo 

korte tot zeer korte programma’s. 


ER"C:S=S-4:IFS=1THENPRINTT;TAB(22)"ER 
IS ER NOG 1":G0T06 

5 G0T02 

6 PRINT'DE LAATSTE IS VOOR JOU, IK HEB 
GEWONNEN!" 

Blijven we nog even bij de games dan is ook het kleintje van 
Rene Lergner uit Papendrecht aardig. Men besture de slang 
met de 3 en de 9 en men probere alle A’s te ontwijken. Na 
drie keer proberen kwam ik tot een score van 864. Wie ver¬ 
betert dat? 

10 POKE1444+X.O 
20 GET A:X=X+(A=3)-(A=9) 

30 PRINT :POKE 1984+RND(1 )*40,1 
40 IF PEEK(1444+X)1 THEN 1=1+1 :GOTO 10 
50 PRINT"SCORE:";l 

Utility’s 

Tot de nuttige (hulp)programmaatjes reken ik de bijdrage 
van L. Hommel uit Tilburg. De IBM PC maakt het mogelijk om 
de inhoud van het (grafische) beeldscherm met de toetsen¬ 
combinatie Shift/PrtSc naar de (grafische) printer te dum¬ 
pen. Met de C64 kan dat ook, alleen moet dan wel even 
onderstaand machinetaal-miniatuurtje worden geRUNd, waar¬ 
na SYS50000 hetzelfde doet. 

40 FORX=0TO94:READA:POKE50000+X,A:NEXTX 
50 DATA169,4,133,186,169,126,133,184,169, 

0,160,4,133,113,132,114,133 
60 DATA183,133,185,32,192,255,166,184,32, 

201,255,162,25,169,13,32,210 
70 DATA255,32,225,255,240,46,160,0,177,113, 

133,103,41,63,6,103,36,103 
80 DATA16,2,9,128,112,2,9,64,32,210,255,200, 

192,40,208,230,152,24,101 
90 DATA113,133,113,144,2,230,114,202,208, 

205,169,13,32,210,255,32,204 
100 DATA255,162,126,76,195,255,96 

Een aardige utility kwam van D. de Vos uit Rotterdam. Run 
onderstaand miniatuurtje. Het wordt dan mogelijk om met een 
machinetaal-monitor de ROM-commando’s te veranderen. 
Deze commando’s staan op de adressen A0000-C0000. Ver¬ 
laat de monitor vervolgens en type: POKE 1,54. 

80 FORT=49152T049176:READA:POKET,A:NEXT 

90 DATA160,159,200,140,11,192,140,14,192, 

189,0,160,157,0,160,232,224 
100 DATA255,208,245,192,191,208,234,96 
110 SYS 49152 

Commodore 16 

De vergeten groep van de C16-gebruikers komt toch weer aan 
bod. Van Raimond Wolters uit Terneuzen een grafisch mini¬ 
atuurtje om een cirkel op te bouwen uit rechthoeken. 

10 COLOR 0,1 
20 COLOR 1,2 
30 GRAPHIC 2,1 
40 A=RND(1)*20+10 

50 FOR L=0 TO 300 STEP 3 
60 BOX 1,100,30,220,130,L 
70 NEXT L 


80 FOR L=1 TO 2000:NEXT L 
90 GRAPHIC 0,1 

A. Stremler uit Papendrecht schrijft een brief aan ’de mensen 
van C=lnfo’ en doet daar drie miniatuurtjes voor de Cl 6 bij. 
We laten er twee zien. Het eerste is een beeldschermeffect 
en het tweede ontlokt muzikale geluiden aan de computer. 

5 COLOR 0,1 :COLOR 1,2 
10 GRAPHIC 1,1 
20 FOR A=0 TO 100 
30 CIRCLE,67,90,A,A,,„12 

40 NEXT A 

5 PRINT CHR$(147) 

10 VOL 8 

20 FOR X=50 TO 510 STEP 4 
30 SOUND 1,X,1 
40 SOUND 1,X+23,1 
50 NEXT X 

60 FOR X=0 TO 120 STEP 4 

70 SOUND 1,X,1 

80 SOUND 1,X+23,1 

90 NEXT X 

100 FOR A=0 TO 123 

110 FOR X=120 TO 120 STEP 4 

120 SOUND 1,X,1 

130 SOUND I.X+23,1 

140 NEXT X 

150 NEXT A 

160 FOR X=100 TO 0 STEP-4 

170 SOUND 1,X,1 

180 SOUND I.X+23,1 

190 NEXT X 

195 FOR A=1 TO 80 

200 FOR X=0 TO 0 STEP 4 

210 SOUND 1,X,0 

220 SOUND 1,X+23,1 

230 NEXT X 

240 NEXT A 

Tot slot voor de Cl 6 nog de bijdrage van Paul Wessels uit 
Den Haag: 

10 VOL 7 

20 T=INT(RND(1)*1000)+1 

30 S=INT(RND(1 )*150)+100 
35 FOR G=1 TO 3 STEP 1 
40 SOUND G,T,S 
45 NEXT G 
50 K=INT(RND(1)*16)+1 

60 H=INT(RND(1)*8)+0 

70 COLOR 4,K,H 
80 COLOR 0,K,H 
90 GOTO 10 

We zetten er weer een punt achter voor deze maand. Obbe 
Vermeij uit Capelle a/d IJssel zorgt voor de uitsmijter. Zijn min¬ 
iatuurtje geeft aardige effecten in de border. Probeer daarbij 
ook de borderkleur te veranderen voor de RUN. 

10 FOR T=0 TO 8:READ A:POKE 
49152+T,A:NEXT :SYS49152 
20 DATA238,32,208,206,32,208,76,0,192 
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Wie zei dat het onmogelijk was om zelf leerprogramma’s te maken voor het ge¬ 
bruik in de onderwijspraktijk? Commodore-lnfo vindt, dat het wel degelijk de moeite 
loont, als leerkracht zelf aan de slag te gaan. We gaven reeds een aantal handrei¬ 
kingen in de vorm van voorbeeldprogramma’s. We gaan er mee door en lossen 
een belofte in. Deze keer gaat het over het maken van Multiple Choice-testen. 


Zelf leerprogramma’s maken 


in BASIC 


Deel 5: Meerkeuze testen 


W ie kent niet de befaamde multiple choice toetsformulieren van het 
CITO. Computerkaarten met een aantal hokjes erop. Is het nu 
antwoord A, B, C of D ? Het potloodpuntje zorgvuldig binnen de lijn¬ 
tjes en invullen maar. Soms gokken, soms in één keer raak. In elk geval een 
redelijk betrouwbaar en vooral snel medium om kennis te toetsen. 



Ook in de klassepraktijk van de 
basisschool is het wel eens handig, 
bepaalde leerstof snel te toetsen. 
Niet om te kijken waar de proble¬ 
men liggen, maar wel om eens te zien 
hoe de vlag er bij hangt ten aanzien 
van de aangeboden en hopelijk ver¬ 
werkte leerstof. Een soort tussen¬ 
stand dus. Vooral de factor snelheid 
heeft hier prioriteit. Daar is een com¬ 
puter immers goed in. En waarom 
zouden we dat niet benutten. 

De Multiple Choice opdracht 

Bij een opdracht met meerkeuze ant¬ 
woord, om de Nederlandse aandui¬ 
ding maar eens te gebruiken, is de 
beantwoording van de vraag reeds 
voorgestructureerd. Er zijn door¬ 
gaans vier mogelijke antwoorden, 
waarvan meestal één antwoord onzin 
is. De andere drie antwoorden zijn zo 
geformuleerd, dat vergissen zeer 
goed mogelijk is, tenzij de leerstof 
goed beheerst wordt. U kent dat 
wel. De CITO is met die materie 
ook zeer in de weer. Met een beetje 
training kunt u die vragen met bijbe¬ 
horende antwoorden ook bedenken. 
Want dat moet u wel zelf doen. Dat 


kan een computer (gelukkig) niet zelf! 
Het programma, dat hier is afgedrukt, 
verzorgt slechts het verwerken van 
de opdrachten, die u in een eerder 
stadium al op papier zette. 

De programmastructuur 

De opzet van het programma is een¬ 
voudig. Geen ingewikkelde IN/UIT 
handelingen, geen gebruik van ex¬ 
tern geheugen (cassette of disket¬ 
te), zodat iedereen ermee kan wer¬ 
ken. Eenvoudig van structuur om 
het voor een ieder leesbaar te 
houden en om het toegankelijk te 
maken. Immers, het is niet het eni¬ 
ge echte multiple choice programma, 
maar een mogelijkheid uit vele. 

Alle programma’s voor het gebruik 
in de klassesituatie moeten aan be¬ 
paalde eisen voldoen, vinden wij. 
Daar hebben we het al eens over ge¬ 
had. Ook deze software, hoe een¬ 
voudig ook, voldoet ons inziens aan 
die gestelde eisen. Het programma is 
ruim voorzien van REMarks en de 
blokjes zijn afgebakend door middel 
van lege regels met een dubbele 
punt. Dit zal de leesbaarheid vergro¬ 


ten. Verder staan er tussen alle state¬ 
ments spaties. Die zijn ook voor het 
leesbaar houden van de regels, maar 
mogen door de meer ervaren pro¬ 
grammeurs onder u worden weggela¬ 
ten. Dat scheelt natuurlijk geheugen¬ 
ruimte. 

De vragen en antwoorden staan in de 
vorm van DATA-regels in het geheu¬ 
gen. Dat is eenvoudig en overzich¬ 
telijk. Het heeft als nadeel, dat er ge¬ 
heugenruimte in beslag wordt geno¬ 
men. Ook kan een eenmaal gemaakt 
programma alleen voor een bepaalde 
toets worden ingezet. Maar dat heeft 
gelijk ook weer voordelen, zeker voor 
de leerkracht, die nog niet zo ver¬ 
trouwd is met het gebruik van de 
computer in de klas. In andere soft¬ 
ware uit onze serie maakten we ge¬ 
bruik van een omhulsel, waarin de 
gegevens van buiten af (cassette of 
diskette) werden ingeladen. Zo werd 
die software zeer flexibel in het ge¬ 
bruik. De leerkrachten die dat pro¬ 
gramma in kwestie al hebben inge¬ 
toetst, kunnen wellicht proberen dit 
multiple choice programma op een¬ 
zelfde leest te schoeien. Ónmogelijk 
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is dat in het geheel niet. De eerder 
gebruikte routines kunnen zo worden 
overgenomen. 

Het programma stap voor stap 
Tot en met regel 140 gebeurt er niets 
ingewikkelds. Het scherm wordt op 
de gewenste kleur gezet en de keuze 
van de tekenset valt op kleine- en 
hoofdletters. Verder wordt het 
scherm gewist. Deze zaken worden 
gerealiseerd door middel van PRINT 
CHR$-opdrachten. Dat werkt prettig 
en u hoeft de lijst van schermcodes 
uit de handleiding niet te raadplegen. 
Dan worden de vragen en antwoor¬ 
den en nog wat stuurgegevens vanuit 
de DATA-regels ingelezen. De 
DATA-regels zelf zijn aan het einde 
van het programma geplakt. Dat is 
nodig, want u moet zelf nog enkele 
DATA-regels vullen. U kunt die regels 
ongehinderd uitbreiden, zonder met 
andere programma-regels in conflict 
te komen. De DATA-regels lopen 
vanaf 10000. 

De eerste twee variabelen N en T 
worden in het voorbeeldprogramma 
gevuld met de waarden 2 en 10. 
Het eerste getal vertegenwoordigt het 
aantal opdrachten en het tweede 
getal de bedenktijd per opdracht in 
seconden. U kunt hierin zelf verande¬ 
ring brengen, als u wilt. In de eerste 
zal dat zeker moeten, want er mogen 
geen twee opdrachten zijn met de 
naam toets. Zorg er wel voor, dat het 
getal in N overeenkomt met het aan¬ 
tal opdrachten, anders gaat het mis. 

Dan worden de eigenlijke vragen 
samen met de mogelijke antwoor¬ 
den ingelezen in een tweedimensio¬ 
nale array genaamd Q$(i,j). De varia¬ 
bele i stelt het nummer van de op¬ 
dracht voor en bij elke i horen 5 waar¬ 
den van j. In element j=0 zit de vraag, 
in de elementen j=1 to 4 de vier mo¬ 
gelijke antwoorden. Het nummer 
van het goede antwoord wordt ingele¬ 
zen in G(i). Dat verklaart gelijk het for¬ 
maat van elke DATA-regel. Dat for¬ 
maat mag u niet zonder meer veran¬ 
deren. Dus eerst de vraag, dan de 
vier antwoorden en tot slot het num¬ 
mer van het juiste antwoord. U kunt 
zo het aantal vragen vrijwel onbe¬ 
perkt uitbreiden. Als het gebruik van 
array’s problemen oplevert, raad ik u 
aan de BASIC-cursus, die momen¬ 
teel in ons blad wordt geplaatst, eens 
goed door te lezen. Echt ingewikkeld 
is het niet. 

De schermpresentatie 
Omdat de Commodore 64 geen 
functies (zoals LOCATE) heeft om de 
cursor op een bepaalde plaats te 


brengen, gebruiken we weer twee 
strings voor de horizontale en vertika- 
ie cursorverplaatsing. In de vorige af¬ 
leveringen van deze serie artikelen 
gebruikten we die techniek ook. 
String NE$ is voor de regelplaatsing 
en RE$ is voor de kolomplaatsing. Op 
regel 300 zien we staan: 

300 x=1 :y=1 :b=36:h=3:gosub 1000 

Deze regel is van belang voor de 
schermpresentatie van het program¬ 
ma. We vinden dat bij een leerpro¬ 
gramma ook de uiterlijke vorm een 
belangrijke plaats moet innemen. De 
waarden die worden gezet, worden 
gebruikt in een subroutine vanaf regel 
1000. Die subroutine tovert een van 
te voren gedefinieerd kader op het 
scherm. In dat kader komt dan de te 
stellen vraag. Op deze wijze vestigen 
we de aandacht van de leerling na¬ 
drukkelijk op de vraag. Regel 320 ziet 
er bijna net zo uit. Het verschil zit in 
de waarden van de variabelen x,y,b 
en h. En de subroutine voor een 
kadertje wordt weer aangeroepen. 
Nu echter op en geheel andere plaats 
op het scherm. Dat komt door de 
getallen behorende bij de genoem¬ 
de variabelen. In het tweede kader 
verschijnen de vier mogelijke ant¬ 
woorden op de vraag. Voor de ant¬ 
woorden staan de nummers 1 tot en 
met 4. De leerling hoeft alleen maar 
op het nummer van het door hem ge¬ 
kozen antwoord te drukken om zijn 
keuze kenbaar te maken. 

Op het moment, dat de vier antwoor¬ 
den er staan, gaat de beschikbare tijd 
per vraag in. De subroutine op 1170 
zet de klok op nul en er wordt op een 
toetsindruk gewacht (zie: regel 360). 
Die toetsindruk wordt vervolgens op 
juistheid gecontroleerd (regel 510 
en verder), de gebruikte tijd wordt 
vergeleken met de toegestane tijd en 
het gekozen antwoord wordt invers in 
het kader geplaatst. Zie daarvoor 
de regels 550-570. Het programma 
vertakt zich dan naar regel 590 als 
het antwoord fout was of de tijdslimiet 
werd overschreden, met het plaatsen 
van een kader en de mededeling, dat 
het antwoord niet goed was. Als wel 
het goede antwoord werd gegeven, 
gaat het programma verder op regel 
610, waar wederom een kader wordt 
gezet met daarin een passende 
mededeling. In beide gevallen ver¬ 
volgt het programma zijn loop na 
enkele seconden met de volgende 
vraag. 

Als alle vragen zijn gesteld en beant¬ 
woord, krijgt de leerling zijn score in 
beeld te zien en het verzoek om op 
RETURN te drukken. Als dat is ge¬ 


daan start het programma opnieuw 
met dezelfde reeks vragen. 


De kaders 

Het plaatsen van de kaders gebeurt 
door middel van een relatief eenvou¬ 
dige techniek. Het resultaat is even¬ 
wel steeds zeer bevredigend en ver¬ 
hoogt de overzichtelijkheid voor de 
betrokken leerling. De kaders worden 
gerealiseerd in de subroutine, die 
begint op regel 1000. 

De variabelen x en y bevatten de 
schermcoördinaten op de twee as¬ 
sen: x geeft de kolom aan en y de 
regel op het scherm, b en h bevat¬ 
ten respectievelijk de breedte en de 
hoogte van het kader. In de sub¬ 
routine wordt het kader opgebouwd, 
gepositioneerd en vervolgens op het 
scherm gezet. Er wordt steeds ge¬ 
werkt met CHR$ om bepaalde 
schermtekens uit de tekenset van 
de Commodore 64 aan te duiden. 
Aan de hand van de inhoud van b 
worden er drie elementen op de juiste 
breedte gebracht, namelijk KI $, K2$ 
en k3$. Zie daarvoor de regels 1020 
tot en met 1050. De eerste is de bo¬ 
venrand van het kader met hoekjes: 
CHR$(176) en CHR$(174). De twee¬ 
de twee rechtopstaande streepjes 
met daartussen een aantal spaties 
gelijk aan de inhoud van variabele b. 
Het derde element is de onderrand, 
ook met twee hoekjes: CHR$(173) en 
CHR$(189). Dan is het kader klaar en 
wordt vervolgens geprint op het 
scherm. Met delen van de variabelen 
NE$ en RE$ worden alle elementen 
op de juiste plaats gezet. 

Het gebruik 

U kunt dit programma, uiteraard voor¬ 
zien van uw eigen aanvullingen, zo in 
de klas gebruiken. Om een vinger 
aan de pols te houden, zult u steeds 
aan de leerling die klaar is, de score 
moeten opvragen, want een admini¬ 
stratie is er niet bij. Daar zult u zelf 
voor moeten zorgen. Eerder gepubli¬ 
ceerde leerprogramma’s in deze 
serie zijn wel voorzien van een admi¬ 
nistratie. Het leek ons niet zinvol, dit 
steeds weer opnieuw te doen. Een 
handige programmeur ziet echter 
snel de aansluitingsmogelijkheden 
van alle leerprogrammatuur uit de 
serie in Commodore-lnfo. Sommige 
oude nummers van Commodore- 
lnfo zijn nog steeds verkrijgbaar. El¬ 
ders in dit blad vindt u daarover infor¬ 
matie. 

Nog even dit. Elke leerling kan het 
programma stoppen of in de war 
sturen. Dat is natuurlijk niet de be¬ 
doeling. Om dit te voorkomen, kan de 
interrupt, die de STOP-toets steeds 
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controleert, worden uitgezet. U kent 
de POKE statements wel. Ze staan 
vaak in de computerbladen. Het nare 
is, dat bij het gebruik van de meeste 
van die POKE’s ook de tijdklok 
wordt uitgezet. POKE 808,234 blok¬ 
keert de STOP-toets en laat tevens 
de tijdklok lopen. Gebruik deze dus 


voor het beveiligen van het program¬ 
ma. Doe dat pas, als het program¬ 
ma zonder fouten loopt. Als de POKE 
is geaktiveerd, is stoppen, listen of 
saven niet meer mogelijk. 

Heeft u gewerkt met dit leerprogram¬ 
ma (en met de eerder gepubliceerde) 
en heeft u bepaalde ervaringen, een 


uitgesproken mening of zinvolle sug¬ 
gesties, laat dat dan eens weten. De 
redaktie ziet uw brieven graag tege¬ 
moet. 

B.M. 


Listing leerprogramma 5: Multiple Choice 


660 : 

610 rem goed 

620 x=l:y=10:b=36:h=6:gosub 102© 

630 print le-f t$ (net, y+2) lef t$ (re$, x+10> ; 
640 prinf'Dat was goed !!!" 

650 g=g+l:for i=l to 2000:next i:return 
660 : 

670 rem niet goed 

680 x=l:y=17:b=36:h=3:gosub 1020 

690 printleft$(ne*,y+l) le-f t$ (re$,x+10) ; 

700 print"Dat was fout ! ! !" 

710 print left*(ne$,y+3)left$(ret,x+3); 
720 print"Het was: ";q$(o,g(o)) 

730 for i=l to 2000:next i:return 
740 return 
750 : 

760 rem toets afwachten 
770 get a*: if a*="" then 77© 

780 return 
790 : 

1000 rem kader plaatsen 
1010 printchr*(147); 

1020 k$="":s*="":for i=l to b 
1030 k$=k$+chr$(96) 

1040 s$=s$+chr$(32) 

1050 next i 

1060 kl*=chr*C176>+k$+chr*<174> 

1070 k2$=chr*U25)+s*+chr*(125) 

1080 k3S=chr$<173)+k*+chr$<189> 

1090 print left$<neS,y); 

1100 print left$(rei,x)kl$ 

1110 for i=l to h 

1120 print left$(re*,x)k2$:next i 
1130 print left$(rei,x)k3* 

1140 print left*(ne$,y+2); 

1150 return 


470 print"Druk op RETURN" 

480 gosub 760:if asc(a$)=13 then run 
490 goto 480 
500 : 

510 rem antwoord halen 

520 gosub 760:gosub 1190 

530 a=val(a$):if a<l or a>4 then 520 

540 if tt=0 then 590 

550 print left*(net,a+y+1) ; 

560 print left$(re$,x+5); 

570 print chr$(18)q*(o,a) 

580 if a=g(o) then gosub 610:return 
590 gosub 670:return 




1170 rem tiid instellen 
1180 ti*="000000":tt=l:return 
1190 rem tijd controleren 
1200 if ti > t*60 then tt=0 
1210 return 
1220 : 

10000 rem vragen en antwoorden 

10010 data 2, 10:rem aantal opdrachten/tüd in sec. 
10020 data"Welk voorwerp hoort niet in deze rij" 
10030 data bloemperk,tuinpad,computer,terras,3 
10040 data"Wat is een trog" 

10050 data lage drukgebied,etensbak,ziekte,dier,2 


100 rem multiple choice 
110 : 

120 rem instellen scherm 

130 poke 53280,0:poke 53281,0 

140 print chr*(14)chr$<8>chr$(147> 

150 : 

160 rem inlezen vragen/antwoorden 
170 read n: rem aantal opdrachten 
180 read t: rem tiid per opdracht 
190 for i=l to n:for j=0 to 4 
200 read q$Ci,j):next i 
210 read g(i):next i 
220 : 

230 rem schermpositie strings 
240 ne*=chr*(19):for i=l to 20 
250 ne$=ne$+chr$(17) 

260 ret=re*+chr$(29):next i 
270 : 

280 rem opstarten 
290 for o=l to n 
300 x=l:y=l:b=36:h=3:gosub 1000 
310 print left$(re*,2);q$<o,0) 

320 x=10:y=10:b=20:h=6:gosub 1020 

330 for i=l to 4 

340 print left$(re$,x+2>i; 

350 print q$(o,i):next i 

360 gosub 1170:gosub 510:next o 

370 : 

380 rem einde oefening 

390 x=7:y=ll:b=24:h=10:gosub 1000 

400 print left$(re$,x+3); 

410 prinf'De oefening is klaar." 

420 print:print:print 
430 print left*(re*,x+3); 

440 prinf'Je had"g" goed." 

450 x=9:y=19:b=20:h=l:gosub 1020 

460 print left$(ne$,y+1)left$(re*,x+2); 
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Als U onze print-out rubriek al heeft bekeken dan is het U zeker opgevallen dat onze 
listings op een andere manier zijn uitgeprint. We hebben hiervoor een programma ge¬ 
bruikt dat speciaal voor ons is geschreven, Printlist VI.1. 


Printlist Vl.1 


Listings om in te lijsten 


H et programma dat we voorheen altijd gebruikten, het vertrouwde 
visilist, is al enige jaren oud. Sindsdien is er heel wat veranderd, er zijn 
een aantal Commodore computers bijgekomen, daardoor voldoet het 
programma niet helemaal meer. Nu is het wel mogelijk een programma aan 
te passen, maar het is veel beter een nieuw programma te schrijven dat vol¬ 
ledig up to date is. Dat nieuwe produkt ligt hier voor u. 



Wat doet Printlist, hoe moet het ge¬ 
bruikt worden, allemaal vragen die 
boven komen bij een nieuw program¬ 
ma. Kortweg gezegd: Printlist vertaalt 
alle tekens die niet of niet duidelijk 
door een printer zijn af te drukken, 
naar leesbare tekens. Het program¬ 
ma is volledig menugestuurd. 

Voor alle Commodore’s 
Het sterkste punt van dit program¬ 
ma is dat U op elke Commodore com¬ 
puter listings uit kan draaien van de 
verschillende Commodore’s. Een list- 
ing van de oude pet, vic 20, c64, cl 6, 
plus 4 en natuurlijk ook de Commo¬ 
dore 128, het kan allemaal zonder 
problemen. Printlist Vl.1 werkt wel al¬ 
leen met een diskdrive. 

Na het runnen van het programma 
wordt er om de naam van het pro¬ 
gramma gevraagd dat u wilt gaan uit- 
listen. Dit kan zowel op het scherm 
als op de printer (device 4 of 5) 
gebeuren. De papierlengte staat in¬ 
gesteld op 72 regels maar kan via het 
menu naar eigen wens worden aan¬ 
gepast in elke andere lengte. 
Standaard staat het programma inge¬ 
steld om een listing van een Commo¬ 
dore 64 en vic 20 uit te listen. Wilt u 
een programma van een andere 
Commodore computer uitlisten dan 
niet vergeten het programma voor de 
juiste computer in te stellen. Dit 


gaat in het menu eenvoudig door de 
juiste keuze te maken. Als laatste 
wordt er gevraagd of alle ingestelde 
waarden juist zijn, zo niet dan kunt 
u dit als nog veranderen. Is alles 
goed ingesteld dan is een druk op de 
return toets voldoende om het pro¬ 
gramma in werking te stellen. 

Al onze listings zijn met behulp van dit 
programma uitgeprint. Het is erg een¬ 
voudig om deze listings over te typen. 
U hoeft maar één ding goed te on¬ 
thouden, alles wat tussen de grote, 
rechte haken staat moet uitgevoerd 
worden. Dus niet letterlijk over¬ 
nemen. 

Bijvoorbeeld: 

40 w$=w$+"[CRSR-DOWN] 
[CRSR-LEFT]B 
[CRSR-DOWN]c[COM 9] 
A[COM 0]" 

Hierna typt U in: 40 w$=w$+" dan 
voert U uit wat tussen de eerste 
haken staat uit door op de toets te 
drukken waarmee de cursor naar 
beneden gaat. Daarna de toets die de 
cursor naar links stuurt. Dit geeft 
steeds een revers-teken op het 
scherm. U vervolgt de listing door het 
intypen van een hoofdletter B, 
gevolgd door het indrukken van de 
toets die zorgt voor het naar beneden 
gaan van de cursor. Een kleine let¬ 
ter c wordt gevolgd door het indruk¬ 
ken van de combinatie Commodore- 


en de 9 toets. Een hoofdletter A en 
als afsluiting de combinatie Commo¬ 
dore en de 0 toets, en de aan¬ 
halingstekens. Het belangrijkste is 
dus alles dat gewoon geschreven 
staat letterlijk over te nemen, wat in 
hoofdletters staat ook in hóófdlet¬ 
ters overtypen. De kleine letters typt 
u ook in uw listing met kleine letters. 
Alles wat tussen de grote rechte 
haken staat altijd uitvoeren. Deze 
haken mag U nooit overtypen. 

Ook naar PC 

Een listing van een Commodore com¬ 
puter die op deze manier is bewerkt 
is zonder al te veel moeite naar een 
andere computer over te zetten, bij¬ 
voorbeeld naar een PC. Niet dat het 
programma zo zal werken maar het 
kan wei veel typewerk besparen. 
Maar hierop komen we in een andere 
editie terug. De listing van de Printlist 
is voor diegene die met een Commo¬ 
dore printer MPS 1000 werken zon¬ 
der meer over te nemen. Heeft u een 
andere printer dan moet U in regel 
100 vanaf de laatste dubbele punt de 
tekst weglaten dus :mps1000=1 laat 
U er helemaal uit. 
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BLAD 1 Programma printlist vi.1 


100 z*=chr*(. ) sprint"! SH I FT CLR3[2xHOM 
E3[CTRL NI" : dim tk*(255),ch*(255): 
mpslOOO=l 

101 print"[3xCRSR-R1GHT3PrintList t SPAC 
E3vl.1[2xSPACE3--[ SPACE!<C)87tSPAC 
E1HSP":print"[ CRSR-DOUN1[3xCRSR-R1 
GHT3EenC SPACE 1momentjet SPACE]graag 
[SPACE3"; 

102 print".";:forl=128to232:readtk*(1) 

:next:rem tokens basic 2/4 *80 

-*e8 

103 print".";:for1=076tol25:readtk*(1) 

:next:rem tokens basic 3.5 *cc 

-*fd 

104 print".:for1=066to074:readtk*( 1 ) 
:next:rem tokens basic 7.0 *ce *02 
-*0a 

105 print".";:for1=002to038:readtk*(1) 
:next:rem 'tokens basic 7.0 *fe *02 
-*26 

106 print".";:for1=001to032:readch*<1) 

:next:rem quotecodes 

107 print".";:forl=129tol92:readch*(1) 

: next 

108 print".";:for1=219to223:readch*(1) 
:next:readch*(255) 

109 print"tHOME113xCRSR-DQWN3 C3xCRSR-R 
IGHT3Programmanaam[3xSPACE)« C9xSPA 
CE)112xCRSR-LEFT 3"; 

110 inputf*:f*=Ieft*(f*,16):iff*=”"the 
nl09 

111 dd = 8:prInt"CHQHE)[5xCRSR-DOUN3 C5xC 
RSR-R I GHT 3Dl sk 1SPACE 3 DEVI CE 12xSPAC 
El”str*(dd)"13xCRSR-LEFT3"; 

112 inputd*:dd=valCd*):1fdd<8ordd>15th 
enl 11 

113 pd = 4:prInt"(HOME3 (6xCRSR-DOUN3 C4xC 
RSR-RIGHT3PrInt[SPACE)DEVICE[2xSPA 
CE3"str*(pd)"13xCRSR-LEFT 3"; 

114 inputd*:pd=val(d*):ifpd<3orpd>6the 
nl 13 

115 pl=72+47*(pd=3):pr1nt"1HOHE3C7xCRS 
R-DOWN 315xCRSR-RIGHT3Bladt SPACE3LE 
NGTE C 2xSPACE 3”str*(pl)"14xCRSR-LEF 
T 3 "; 

116 inputd*:pl=val(d*):lfpl<.thenl15 

117 1 1=40+(pd=3):print"[HOME3 C8xCRSR-D 
0WN314xCRSR-RIGHT 3Rege 1tSPACE3LENG 
TEC2xSPACE 3"str*(11)"[4xCRSR-LEFT) 

Tt . 

* 

118 inputd*:ll=val(d*):ifll<20or1I>160 
thenl15 

119 print"[HOME3 C10xCRSR-D0UN3","MODUL 
Et SHI FT SPACE 31[SPACE 3 = C SPACE3 PET, 
VIC20,CBM64 

120 print,"MODULECSHIFT SPACE32CSPACE3 
= CSPACE3CBM16[SPACE3 en[SPACE3PLUS/ 
4":pr1nt, "MODULE[SPACE 3 3[SPACE 3 = [ S 
PACE 3 COMMODORE[SPACE 3128 

121 pm=1:print”[HOME3[14xCRSR-D0WN3 C4x 
CRSR-RIGHT 3Print[SPACE3 MODULE[2 x SP 
ACE 3"st r*(pm)"[3xCRSR-LEFT 3"; 

122 inputd*:pm=val(d*>:ifpm<lorpm>3the 
nl21 

123 print"[HOME3[16xCRSR-D0WN3","[4xCR 

SR-RIGHT 3 OK[3xSPACE 3 J(3xCRSR-LEFT 3 
n . 

124 lnputd*:ifleft*(d*,1)="n"thenrun 


125 open15,dd,15:openB,dd,8,f*+",p,r": 
inputtl5,en,em*,et,es:lfen-.thenl2 
7 

126 print"[SHIFT CLR3"em*:c1ose8:close 
15:end 

127 get*8,x*:get*8,x*:ifmp=.thenopen4, 
pd, 7 

128 1fmp=lthenopen4,pd:print#4,chr*(27 
)chr*(120)"1"; 

129 gosubl53 

130 get#8, 11 *:get#8,12*:lfasc(ll* + z*) = 
.andasc(12*+z*)=.thenl44 

131 gett8,1 *:x = asc(l# + z*):get#8, l*:r = 2 
56»asc(l*+z*)+x:q=. 

132 p*=rlght*("[4xSPACE3"+mid*(str*(r) 

,2) + "[SPACE 3",6) 

133 get#8,c*:c=asc(c*+z*):onqgotol38:i 
fc=34thenq=l 

134 1fc=.thengosubl47:gotol30 

135 1f(c=254orc=206)andpm=3thence=-(c= 
206):fe=-(c=254):gotol33 

136 1fc<128andce=.andfe=.thenp*=p*+c*: 
gosubl46:gotol33 

137 p*=p*+tk*(c-128»(c>203)*(pm>1)-64* 
(fe=l)):fe=.:ce=.:gosubl46:goto133 

138 1fct=.thenq=.:on-(c=.orc=34)gotol3 
4:q=l:a=c:h*=chr*(c):ct=l:gotol33 

139 1fa=cthenh*=h*+chr*(c):ct=ct+l:got 
ol33 

140 ifch*(aX>""thenh* = ch*(a) :ifct=lth 
enh*="["+h*+"3" 

141 ifch*(a)<>""andct>lthenh*="["+mid* 
(str*(ct),2)+"x"+h*+"3" 

142 p*=p*+h*:gosubl46:ct=.:ifc=.orc=34 
thenq=.:gotol34 

143 goto138 

144 c1ose8:c1osel5:print#4:1=1+1 

145 p* = "[SxSPACE3 **[SPACE3EINDE[SPACE) 
LISTING[SPACE3"+f*:gosubl48:print# 
4:c1ose4;end 

146 1f1 en(p*)<11thenreturn 

147 1 ƒc = Oand1 en(p*)=6thenl49 

148 l=l+l:pc*=left*(p*,ll):gosub155:p* 
="[6xSPACE]"+mid*(p*,11+1) 

149 If1<p1-3thenreturn 

150 ifpd<>3thenfori = 1 top 1:print#4:next 
:gotol53 

151 print"[CRSR-D0WN3[6xSPACE3[CTRL 9) 
[SPACE 3 d ruk[SPACE 3 nu[SPACE 3 op[SPAC 
E 3 een CSPACEItoetslSPACE 3" 

152 getg*:ifg*=""thenl52 

153 print"[SHIFT CLR1";:pg = pg +1:print# 
4 

154 pc* = "[6xSPACE3BLAD" + str*(pg) + "[SPA 
CE3Programmal SPACE3" + f*:gosubl55:p 
rint#4:l=4:return 

155 1fpd=3ormp=.thenprint#4,pc*:return 

156 pd* = pc*:pc* = "":for1 = 1to1 en(pd*):a = 
asc(mld*(pd*,1)> 

157 pc*=pc*+chr*(a+32*(a>64)»(a<91)-12 
8*(a>192)»(a<219)-189*(a=48)):next 

158 prlnt#4,pc*chr*(27)"j"z*pc*:return 

159 data end,for,next,data,input#,inpu 
t,dim,read 

160 data 1 et,goto,run,1f,restore,gosub 
,return,rem 

161 data stop,on,walt,1oad,save,verify 
,def,poke 
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162 data printt,print,cont,11st,clr,ca 
d,sys,open 

163 data c]ose,get,new,tab(,ta,fn,spc( 
, then 

164 data not, step, + ,-, »,/, 't, and 

165 data or,>,=,<,sgn,Int,abs,usr 

166 data f re, pos,sqr, rnd,log,exp,cos,s 
ln 

167 data tan,atn,peek,len,str*,val,asc 
, chr* 

168 data left4, r1ght*,mld*,go,concat,d 
open,dclose,record 

169 data header,co 11 eet,backup,copy,ap 
pend,dsave,dload,catalog 

170 data renane,scratch,directory,dele 
ar,bank,b1oad,bsave,key 

171 data de 1ete,e1se,trap,résumé,dlspo 
se,pudef,using,err* 

172 data Instr,rgr,rolr,rlui,joy 

173 data rdot,dec,hex*,err*,Instr,else 
,résumé,trap 

174 data tron,troff,sound,vo1,auto,pud 
ef,graphlc,paInt 

175 data char,box,cl re 1e,gshape,shape, 
draw,locate,color 

17G data acnclr,sca1e,he1p,do, 1oop,ex 1 
t,directory,dsave 

177 data d1oad,header,scratch,co 11 eet, 
copy,rename,backup,delete 

178 data renumber,key,monitor,us1ng,un 
t i 1,whi1e 

179 data pot,bump,pen,rsppos,rspr1 te,r 
speolor,xor,rwindow,pointer 

180 data bank,fi1 ter,p1ay,tempo,movesp 
r,sprite 

181 data spreo1or,rreg,enve1ope,s1eep, 
cata1 og,dopen,append,dclose 

182 data bsave,b1oad,record,concat,dve 
rify,dclear,sprsave,collision 

183 data begin,bend,window,boot,with,s 
prdef,qult,stash 

184 data "CSPACE]",fetch,"CSPACE]",swa 
p,off,fast,s1ow 

185 data "CTRLCSPACEiA","CTRLCSPACE3B" 

,"CTRL[SPACE]C","CTRL!SPACE1D","CT 
RLt SPACE12","CTRLt SPACEiF","CTRLtS 
PACEiG" 

186 data "CTRLiSPACE3H","CTRLiSPACEK» 

,"CTRLtSPACEiJ","CTRLCSPACE]K","CT 
RLiSPACElL","»,"CTRL[SPACEiN","CTR 
LtSPACEiO" 

187 data "CTRLiSPACE]P","CRSR-DOWN”,"C 
TRLCSPACE19","HOME","DEL","CTRLtSP 
ACE1U","CTRLCSPACEiV" 

188 data "CTRLCSPACEiW","CTRLCSPACEIK" 

,"CTRL C SPACEiY","CTRL C SPACE ]'Z*,"CT 
RL C SPACEII","CTRLISPACE]3" 

189 data "CRSR-RIGHT","CTRL!SPACETS"," 
CTRLISPACE17","SPACE" 

190 data "COMCSPACE]1",,,,"F1","F3","F 
5","F7","F2","F4","F6","F8", 

«* « 

191 data "CTRL!SPACE]1","CRSR-UP","CTR 
LCSPACEJO",”SHIFTCSPACE1CLR","SHIF 
TCSPACE]INST" 

192 data "C0MISPACE12","COMCSPACE13", " 
C0MCSPACE14","COMCSPACE]5","COMISP 
ACE]6","COMCSPACE]7","COMCSPACE]8" 

193 data "CTRLCSPACE15","CRSR-LEFT","C 
TRLC SPACE18","CTRL C SPACE]4","SH1 FT 
CSPACE]SPACE" 


194 data "COMCSPACE]*","C0MISPACE11"," 
COM C SPACE]T","COH C SPACE]fl","CQH C SP 
ACE1G","C0MISPACE1+","C0MCSPACE1M" 

195 data "COMCSPACE]£","SHIFTCSPACE]£" 
,"C0MCSPACE1N","COMCSPACE]Q","COMC 
SPACEJD","COMCSPACE]Z","COMCSPACE] 
S" 

196 data "C0MCSPACE1P","C0MCSPACE1A", " 
COMC SPACE]E","COMCSH1 FT SPACE1R"," 
COMCSPACE]W","COM C SPACE]H","COM C SP 
ACE] J" 

197 data "C0MCSPACE1L","C0MCSPACE1Y"," 
COMC SPACE]U","COMC SHI FT SPACE10"," 
SHIFTCSPACE10","COMCSPACEJF","COMC 
SPACEJC" 

198 data "C0MCSPACE1X","C0MCSPACE1V"," 
COM C SPACE]B","SH1FTC SPACE]*" 

199 data "SHIFTCSPACE]+","COMCSPACE]-" 
, "SHIFTCSPACE]-","COMCSPACE]PI","C 
OMC SPACE]*","COMCSPACE]PI" 

*» EINDE LISTING printlist vl.1 


Amiga speciaalzaak 


Alleenimporteur van 

Flesch & Hörnemann 
AMIGA DISKDRIVE met 6 maanden garantie 


Enkele drive 3,5" ƒ 479,- 

Dubbele drive 3,5" ƒ899,- 

Enkele drive 5,25" ƒ 599,- 

Dubbeie drive 3,5" en 5,25" drive in één ƒ 999,— 


Vanaf 1 juli weer op voorraad: 

• RS 232 Interface voor C-64 

• Dataswitch voor C-1540-1541 

• Interface voor C-64-128 met 8K buffer 



Altijd op voorraad: 

Alle Commodore-IC’s, o.a. 

8701 /14,- >\< 6526/32,50 6581 /76,50 

Eigen reparatiewerkplaats. 

Levering aan iedereen. 



FOR TOTRL COmPUTIIlE 


Spijt 17 

5271 BA Sint-Michielsgestel 
Postbus 29 

5270 AA Sint-Michielsgestel 


Telefoon 04105-9004* 
Bank nr. 67.53.60.846 
Postbank nr. 1402686 
Fax nr. 04105-2106 
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Hi-tech Isolationisme 


D e handelsoorlog tussen Japan en de VS begint dreigende vormen aan 
te nemen, aan beide zijden van de Stille Oceaan roepen de "Hard-liners" 
om nog meer beperkingen, tariefmuren en vergeldingsmaatregelen. Ook 
Europa krijgt hier mee te maken, al was het maar omdat de prijs van de 
RAM-chips omhoog gaat en daardoor de consument uiteindelijk deze pres- 
tige-strijd betaalt. 


In Amerika is de kreet "Buy American" 
een van de beste verkoopargu¬ 
menten aan het worden, zeker in de 
computerhandel. Dat ook van de 
grote merken (o.a. IBM) een groot 
deel van de produktie uit het verre 
Oosten komt, wordt gemakshalve 
maar vergeten. Reagan heeft in een 
soort anti-Japanse handelskruistocht 
nu o.a. de Japanse laptop computers 
en de RAM geheugenchips met een 
100% tarief belast. Dit leidt ook voor 
Europa tot een schaarste aan RAM- 
chips en sterk verhoogde prijzen, ter¬ 
wijl de verdere ontwikkeling van de 
chipstechnology en de afzetpatronen 
van bijvoorbeeld de 1 en 4 MegaBit 
chips daardoor in gevaar komt. 

Zoals we in ons land al vele eeuwen 
weten, is vrije handel de basis van 
een groot deel van onze welvaart. En 
dat was sinds 1945 ook internationaal 
een duidelijke zaak, geleidelijk moes¬ 
ten alle belemmeringen voor vrije 
handel worden afgebroken. Handel 
drijven is de beste tegenmaatregel 
tegen oorlogen. Het uitwisselen van 
produkten en diensten, en mede 
daardoor een betere communicatie 
tussen de handelspartners is ook de 
basis van de EEG gedachte. 

Daarom is het zo verwonderlijk, dat er 
nu tegenover Japan een soort omme¬ 
zwaai aan de gang is. Vrijwel ieder¬ 
een is tegen handelsbelemmeringen 
tussen de Europese landen, tussen 
de VS en Europa, maar tegenover 
Japan is er een andere stemming, en 
vindt men tariefmuren of importquota 
wel zinvol. 

Misschien is een goede buur beter als 
een verre vriend, maar ik vindt het is 


toch wel kortzichtig om nu mee te 
doen in de eenzijdige en veelal weinig 
doordachte maatregelen, die Reagan 
heeft afgekondigd tegenover Japan. 
Want die maatregelen gaan voorbij 
aan wat de wezenlijke problemen zijn, 
houden geen rekening met de totaal 
verschillende handelsculturele opvat¬ 
tingen van Japan en andere landen in 
het Verre Oosten, en zijn in hun uit¬ 
werking vaak ook nog contra-produc- 
tief. De stopzetting van bijvoorbeeld 
de export van de Toshiba 3100 lap¬ 
tops naar Amerika heeft alleen maar 
geleid tot een verhoogde inspanning 
van Toshiba in Japan zelf en in 
Europa. Iedere 3100 computer, die 
niet in de VS verkocht wordt, gaat nu 
vast een koper vinden in Europa. En 
dat betekent, dat men veel moeite zal 
krijgen om bijvoorbeeld de Compaq, 
Zenith en Kaypro portables hier te slij¬ 
ten. 

Het is niet logisch om te denken, dat 
een tariefmuur leidt tot het zo maar 
stopzetten van een hele produktlijn. 
Het gebruiken van dit soort maat¬ 
regelen als een soort dwangmiddel 
om concessies over de hele linie van 
Japan te krijgen gaat voorbij aan de 
op dit moment vrij precaire economi¬ 
sche situatie in Japan zelf, aan de 
manier waarop men zaken doet met 
het land en aan de lessen die men uit 
de historie zou kunnen leren. 

Volgens nogal wat historici is bijvoor¬ 
beeld de oorlog tussen Japan en de 
VS (WO II) het gevolg geweest van 
enorme miscommunicatie tussen bei¬ 
de landen en van het onjuist interpre¬ 
teren van (mede) economische con¬ 
flicten. 

Nu gaat het wat ver om te zeggen, dat 


de handelsoorlog tussen de VS en 
Japan zou leiden tot een echte oorlog, 
maar de stemming in zowel de VS als 
in Japan is over dit onderwerp 
bepaald niet optimistisch. Men vreest 
verdere escalatie. Gezien de precaire 
economische situatie zijn de politici 
geneigd om de schuld daatvan maar 
overzee te zoeken en wordt het 
publiek opgehitst met "Buy American" 
campagnes, natuurlijk weer gevolgd 
door soortgelijke acties in Japan. De 
bedrijven, die hier een snel voor¬ 
deeltje zien, zoals de chipsmakers in 
de VS, haasten zich om profijt te slaan 
uit deze stemming en druk uit te 
oefenen op de politici. Dat iso¬ 
lationisme op technisch gebied vrijwel 
zeker een doodlopende weg is, ver¬ 
geten ze gemakshalve maar even, in 
de VS zijn de resultaten van het vol¬ 
gende kwartaal altijd veel belangrijker 
dan de ontwikkelingen op lange ter- 
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mijn. Houdt de aandeelhouders tev¬ 
reden, anders gaan de koersen om¬ 
laag. 

Aan de andere kant wordt nu ook in 
Japan, waar de economische situatie 
verre van rooskleurig is, een anti¬ 
westerse stemming aangewakkerd. 
Zo lang je de schuld voor de econo¬ 
mische crisis maar ergens anders 
kunt leggen, blijven de nationale 
politici buiten schot. 

De vraag is nu of we aan deze ont¬ 
wikkeling iets kunnen doen. Natuurlijk 
is dit een politieke zaak, maar het 
aantal politici in ons land of zelfs op 
Europees niveau, die iets meer van 
Japan (willen) weten dan het leren 
eten met stokjes voor een leuk 
werkbezoekje, is zeer gering. Men 
weet er weinig van, het is te ver weg, 
te vreemd voor een comfortabel 
reisje, en het land ligt ook niet zo lek¬ 
ker in de publieke opinie, mede van¬ 
wege WO II. Het idee, dat de Japan¬ 
ners de hele wereld ondersneeuwen 
met hun produkten en de werkgele¬ 
genheid hier in gevaar brengen, is de 
afgelopen decennia voldoende rond- 
gebazuind. De politici zullen eerder 
geneigd zijn, te kiezen voor meer 
sancties, meer beperkingen en dus 
voor een verdere agressiespiraal. 

is dan het bedrijfsleven geroepen om 
wat verder te kijken en iets te doen 
aan de vermindering van de span¬ 
ning? Zij lijken het meest gebaat bij de 
sancties, maar komen op lange ter¬ 
mijn ook het meest in de knel, dus 
zouden zij ook de mogelijke escalatie 
moeten voorkomen. Nu is er vanuit 
ons land natuurlijk best wel een 


redelijke handel met Japan, maar 
helaas blijft dat veelal beperkt tot de 
grote bedrijven. 

De rol van Philips, met toch wel grote 
belangen en zeer goede contacten in 
Japan, maar ook een beladen han¬ 
delsverleden in dit opzicht, is bijna 
tweeslachtig te noemen. Enerzijds is 
dat al zeer lang samen met de Japan¬ 
ners streven naar bepaalde stan¬ 
daards, werken in joint-ventures en 
andere samenwerkingsverbanden. 
Anderzijds (met nogal wat gewroet en 
gerommel) de pogingen om de Ja¬ 
panners uit bepaalde Europese mark¬ 
ten te houden, met name die voor 
TV’s en VCR’s. Maar de Japanners 
weten langzamerhand, dat men in 
Eindhoven wel degelijk op de lange 
termijn werkt en vooral een open 
relatie met het land en de bedrijven 
daar belangrijk acht. Er wordt wel wat 
gestoeid, maar het blijft een gevecht 
onder heren, Wisse Dekker weet dat 
er geregeld een glaasje saké nodig is 
om de zaken met Morita en Mat- 
sushita bespreekbaar te houden. 

Dat begrijpen de Amerikanen veel 
minder, die sturen af en toe een af¬ 
gezant, maar die slaakt alleen maar 
dreigende taal en reist dan snel weer 
af. In Japan werkt dat niet, daar moet 
je steeds maar weer terugkomen, blij¬ 
ven praten, blijven glimlachen en 
eerst ja en amen zeggen, voordat je 
voorzichtig op mogelijk voor beiden 
interessante alternatieven wijst en zo 
je eigen mening tactisch naar voren 
brengt. 

Het zou goed zijn, wanneer meer klei¬ 
nere bedrijven handel zouden drijven 


met Japan, omdat daarmee het aan¬ 
tal contacten tussen de landen snel 
toeneemt. Kleinere bedrijven zullen 
eerder geneigd zijn zowel naar import 
als export te kijken en door meer ge¬ 
spreide handelspatronen overheids¬ 
bemoeiing en sancties moeilijker te 
maken. Het is nu eenmaal eenvou¬ 
diger om vijf grote chipsmakers te 
treffen met een maatregel dan bij¬ 
voorbeeld de kleding- en mode¬ 
wereld. 

Er zijn nogal wat organisaties, die zich 
bezighouden met de promotie van de 
handel. Helaas is het zo, dat die 
meestal gericht zijn op het stimuleren 
van de handel in één richting. Vanuit 
Japan zijn het MITI en Jetro acvtief, 
vanuit Nederland zijn er natuurlijk de 
Kamer van Koophandel en de diverse 
exportbevorderende instanties zoals 
de EVD. Sinds een paar jaar zijn een 
aantal importeurs van Japanse 
produkten (DUJAT) ook bezig met de 
promotie van Nederlandse produkten 
in Japan, ze hebben ingezien dat een 
evenwichtige wederzijdse handel 
uiteindelijk in ieders belang is. 

Gezien de reëel dreigende situatie op 
handelsgebied, waar misschien niet 
helemaal toevallig nu de computer-in- 
dustrie in het brandpunt van de be¬ 
langstelling staat, is echter een ver¬ 
dere stimulatie van de handel met 
Japan dringend gewenst. 

Luc Sala 




GEOS HOT News 


Op de CES in Chicago was er van de kant van 
Berkeley Softworks wel weer veel nieuws. Men is 
druk bezig, om een hele Geos ontwikkelomgeving te 
maken. Niet alleen met nieuwe toepassingen als 
Desktop Publishing, maar ook met programmeer- 
hulpen als GeoProgrammer. En de nieuwe versie van 
Geos, namelijk VI.3., is weer wat sneller en 
gebruiksvriendelijker. Vooral op het gebied van de 
printerinterfaces is er een stevige uitbreiding, o.a. 
met de Apple laserwriter voor PostScript. 

Het meest interessant was wel GeoPublish, een nieuw 
GEOS pakket om aan Desktop Publishing te kunnen 
doen. Op een 64 is dat een hele prestatie, iedereen die 
met Newsroom of Printshop gewerkt heeft, weet tegen 
welke systeembeperkingen men aanloopt. De speciale 
eigenschappen van Geos, zoals de vrijheid om eigen 
fonts op het scherm te gebruiken, wordt hier echter ten 


volle benut, waardoor GeoPublish veel meer biedt. Het 
mengen van plaatjes en tekst is mogelijk, maar ook het 
gebruik van tamelijk grote letters voor kopregels (tot 48 
punten), vergroten en verkleinen van grafische afbeeld¬ 
ing en dergelijke. is mogelijk. Hier is natuurlijk de aanstur¬ 
ing van de Apple LaserWriter een belangrijk punt, om wat 
men in beeld krijgt ook perfect te kunnen afdrukken. Geo¬ 
Publish gaat 70 dollar kosten in de VS. 

Met GeoProgrammer kan men in machinetaal 
programma’s maken, die dan in Geos passen, dat wil 
zeggen vanuit Geos kunnen worden opgestart. Dit 
betekent dus, dat men zelf Geos applicatieprogramma’s 
kan gaan maken. In de praktijk zal men waarschijnlijk 
eerder bestaande software gaan aanpassen voor Geos 
en we denken, dat daardoor het Geos aanbod nog 
sneller zal groeien. In GeoProgrammer zit een Geolinker 
en een GeoDebugger. 
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